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_ Editors Jottings 


Welcome to this first issue of BEEBUG for 1994. 
As we stated at the start of volume 12, the decline 
in the BBC micro market had reached the point 
where we believed it would cease to be 
commercially viable for us to continue with the 
publication of BEEBUG beyond the issue for April 
1994, Nothing has happened to change this view, 
and so there will be just two more issues of the 
magazine before we take our leave of you, our 
readers, for the last time. 


As I have said before on this page, there is still 
plenty of life left in the many BBC micros which 
are still in frequent and widespread use. But it is 
not something which we can continue to support 
as а commercial venture, If support for the BBC 
micro is to continue at all, as I have no doubt it 
will, then it must return to the roots from which 
BEEBUG itself developed, in the form of user 
groups, run and organised by enthusiastic and 
dedicated users, with the support of users and for 
the benefit of users. 


A number of such user groups have already come 
to my attention, some of them new some of them 
already established. This month 1 want to give 
some initial details. | must stress that BEEBUG 
has no connection with any of these groups, and 
the mention of any group on this page should not 
be interpreted as a recommendation on our part. 
We merely hope that the information may prove 
useful to readers in the future. 


Mr.A.G.Nelson has initiated a new club called the 
Beeb Developments User Group, which you may 
have seen advertised recently in BEEBUG. The 
address to write to is 73 Spital Crescent, 
Newbiggin-by-Sea, Northumberland ХЕ64 650. 
and the telephone number is 0670 521055. 


Then there is 8 Bit Software, an established user 
group dedicated to all users of the BBC range. It 
offers low cost public domain software, and a 
monthly dise-based magazine. The group is run by 
Chris Richardson at 17 Lambert Park Road, 
Hedon, Hull HU12 НЕ, tel, 0482 896868. 


ByteBack is a similar user group, which 
publishes a monthly A5 sized magazine. This 
group is run enthusiastically by Paul Harvey, at 
33 King Henry Mews, Enfield Lock, Middx EN3 6JS. 


‘There is also a long-standing user group called 
Solinet, originally set up to provide support for 
users of Solidise products, but for some years 
more of a general purpose BBC user group. This 
also offers a dise-based magazine. The contact is 
Ron Marshall, 41 Westbrook Drive, Rainworth, 
Mansfield, Nottingham NG21 OFB. 


Another group just emerging into existence, goes 
under the name of Destroyed Realities Disc 
Based Magazine. The first issue was due for 
publication in January this year on а 407 single- 
sided DFS dise for about £1.80. The organiser is 
David Lowless of 82 Main Street, Pembroke, 
Dyfed, Wales SA71 АНН. 


Remember all of these are privately run from 
private addresses. If you want more information 
then Lam sure a stamped addressed envelope 
would be very much appreciated, as 1 am sure 
would be contributions of programs and articles 
and other offers of help. 


Finally, if any of the organisations I have mentioned 
would like to update me on their activities, or any 
groups I have omitted let me know of their 
existence, then the relevant details can be 

ncluded in either of our next two issues, 
included in ei is йб 
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Graffer (Part 1) 


Some clever plotting by George Crossley 


Graffer is a menu-driven graph and 
histogram plotting program for the BBC 
Master. It supports a number of data 
sources and presentation styles 


USING GRAFFER 

Type in Graffer and save it to an ADFS 
disc. You will also need to create 
directories F and T. 


The Graffer menu showing range of 
options available 


The menu (Fig.1) gives you the choice of 
five types of graph or histogram, input 
from keyboard or file and four 
presentation options. Press the 
appropriate number keys for the 
configuration you want, then 0 or Return 
to end your selection. On ending the 
selection process, your chosen options 
are displayed; they are modified if 
you've made incompatible choices. 


If you choose the Demonstration Plot the 
program plots a simple graph without 
further input, unless you have chosen 
option 8 or 9 as well. An example 
Function Plot is included, too; if you 
choose this option, answer ‘Y’ to the 
query ‘Is the function defined?'. Any 


other response ends the program with an 
invitation to define a function at line 
1330. Options 3 and 4 generate graphs 
and histograms with time as the X-axis. 
You will be prompted to input Y co- 
ordinates and to choose Months or Years 
аз the time co-ordinate. The default 
option generates general purpose 
graphs, with prompts for X and Y 
coordinates. Option 5, selected with one 
of the above options, draws 
graphs/histograms from data stored on 
file. File generation programs will be 
provided next month. 


The rest of the options are meant to be 
used along with those already described. 
Option 6 gives Suppressed Zeros - the 
default is to plot X and Y axes, even if 
the graph doesn’t touch or cross them. 
Option 7 plots dashed divisions at 
chosen intervals. Option 8 includes main, 
X-axis and Y-axis titles, all input from 
keyboard. Option 9 allows selection of 
graph boundaries, the default being for 
Graffer to select scales to fill the screen, 


When you've made your menu 
selections Graffer plots a graph or 
histogram on the shadow screen. 
Pressing any key replaces the plot with 
another menu, together with some 
rubbish at the top and bottom of the 
screen. This is caused by program 
workspace encroaching on screen 
memory; your graph is preserved in 
shadow RAM. 


The second menu gives you a choice of 
five options: 


Run Program destroys your graph and 
starts the program again. 
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Plot Another Graph on Same Axes 
prompts for further input and adds a 
second graph to the original one. 


Save Graph to File invokes the Savescreen 
program provided in part 2. 


Print Graph invokes Dump2, again, this 
will be in part 2. You can, however, 
provide your own mode 128 screen 
dump at line 2260. 


Quit ends the program, having first reset 
text and graphics windows. 


БИЕ, 


Combining line graph and bar chart 


Fig.2 is a graph of cumulative spend 
superimposed on a time histogram of 
monthly spend. The histogram was 
plotted first, by selecting main menu 
options 4, 7, 8 and 9, specifying Months 
as the time axis, 12 as the number of 
months and 4 (April) as the start month 
The Y-axis monthly spend data and titles 
were typed in and the Y-axis boundary 
set to a value which would accommodate 
the cumulative graph. After checking 
that the histogram looked OK, option 2 
was selected from the second menu and 
the cumulative spend figures were 
entered. 


PROBLEMS 

If the main menu responds in an odd 
way to your choices, try doing a hard 
break and reloading the program. This is 
necessary after using many screen dump 
programs. 


NEXT MONTH 

Subsidiary programs which allow data 
files to be generated and saved for use 
with the main program and dump the 
final graph to printer or save it to file will 
be provided next month. 


10 REM Program Graffer | | 
20 REM Version B1.0 
30 REM Author George Crossley | 
40 REM BEEBUG Jan/Feb 1994 
50 REM Program Subject to Copyright 


110 ON ERROR IF ERR-17 THEN RUN ELSE P 
ROCerror | 

120 PRINT ТАВ(8,12) CHR$(131);CHR$(14l | 
); "WELCOME ТО GRAFFER":PRINT TAB(8,13) С 
HRS (131) ;CHR$ (141) ; "WELCOME TO GRAFFER" 
130 TIME-0:REPEAT UNTIL TIME=400:CLS 
140 DIM T(51,1) | 


CHRS (141 
131) ;CHRS( 


АЗОТ Зеїес | 
е: 

Demonstration plot*''« 
3: Time рї 
Input from file 


pressed 2егоѕ"''* 7 
8: Titles'''* 9: Ma 


4);" PRESS 0 OR «RTN | 
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240 REPEAT 

250 X=GET 

260 IF X=49 THEN DEMO=1 

270 IF X-50 THEN FPLT=1 

280 IF X-51 THEN TIM-l 

290 IF X-52 THEN HIST=1 

300 IF X-53 THEN FILE=1 

310 IF X-54 THEN SUPP=1 

320 IF X-55 THEN STUB=0 

330 IF X-56 THEN TITL-l 

340 IF X-57 THEN SCAL=1 

350 Y-X-48:IF 0<Ү AND Y«10 THEN PRINT 
TAB(0,2*Y43) CHR$(130);Y 

360 UNTIL X-13 OR X-48 

370 MODE 128 

380 IF DEMO=1 THEN TIM: 
sHIST=0 

390 IF HIST=1 THEN TIM=1:SUPP=0 

400 IF TIM=1 OR FILE=1 THEN FPLT=0 

410 IF РПЕ-0 AND FPLT=0 AND DEMO=0 AN 
D ТІМ-0 THEN INPT=1 

420 PRINT’ '"Your selection is:*'' 

430 IF INPT=1 THEN PRINT*Input from ke 
yboard' ELSE IF FILE-l THEN PRINT" Input 
from file" 

440 IF DEMO=1 THEN PRINT*Demonstration 
plot" ELSE IF ЕРІЛ-1 THEN PRINT*Functio 
n plot" 

450 IF TIM-l THEN PRINT"Time plot" 

460 IF HIST-l THEN PRINT*Histogram* 

470 IF STUB=0 THEN PRINT*Full division 
" 

480 IF SUPP-l THEN PRINT*Suppressed ze 
ros" 

490 IF TITL-l THEN PRINI"Titles (input 

from keyboard)" 

500 IF SCAL=1 THEN PRINT*Manual graph 
boundaries" 

510 PRINT''*Accept this selection? (Y 
or N)":0-GET 

520 UNTIL 0-89 OR 0-121 

530 IF INPT=1 THEN PROCinput 

540 IF FILE-l THEN PROCfile 

550 IF FPLT=1 THEN PROCfplt 

560 IF TIM-l THEN PROCtim 

570 ІР DEMO-1 THEN PROCdemo ELSE PROCC 
alc 

580 VDU29, ZEROX; ZEROY; 

590 IF TITL=1 THEN PROCtitle 


'ILE-0:FPLT-0 


600 PROCaxes 

610 IF HIST-0 THEN PROCplot ELSE PROCh 
ist 

620 PRINT" 

630 PROCopt 

640 END 

650 : 

1000 DEF PROCinput 

1010 REPEAT:INPUT "No. of data points ( 
50 max.) *N:UNTIL №1 AND №51 

1020 REPEAT:FOR А-1 TO N:PRINT"INPUT X" 
Y*;A;:INPUT ° " T(A,0), T(A,1):NEX 


; :0-GET: PRINT CHR$ (127) 


TA 

1030 PRINT*Accept these? (Y or N)':P-GE 
5 

1040 UNTIL P-89 OR P-121 

1050 ENDPROC 

1060 : 

1070 DEF PROCfile:LOCAL X 

1080 IF TIM-Ü THEN *DIR F 

1090 IF TIM-l THEN *DIR T 

1100 cts: 
1110 INPUT "Input file name: " A$ 

1120 X-OPENIN A$ 

1130 INPUT#X,N, TIM 

1140 FOR A=0 TON 

1150 INPUT#X, T(A, 0) :INPUTHX, T(A, 1) 

1160 NEXT A 

1170 CLOSE#X 

1180 *DIR* 

1190 ENDPROC 

1200 : 

1210 DEF PROCEplt 

1220 PRINT*Is the function defined (Y о 
r М)? *:Q=GET 

1230 IF 0=89 OR Q-121 THEN INPUT "Input 
XMIN, ХМАХ * XMIN, XMAX ELSE PRINT"Def 
ine single-valued FNx(X) at line 1330*:Е 
ND 

1240 N-51 

1250 CALCIN- (XMAX-XMIN) / (8-1) 

1260 Т(1,0) =ХМІМ:7(1,1) -FNx (XMIN) 

1270 FOR A-1 TO N-1 

1280 PT=XMIN+ (A*CALCIN) 

1290 T(A«1,0) =РТ:Т(А+1,1) =FNx(PP) 

1300 NEXT А 

1310 ENDPROC 

1320 : 


1330 DEF FNx(X) -COS(X) *EXP(-X/10) 
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140: 

1350 DEF PROCCalc 

1360 IF TIM-l THEN XMAX-T(0,0) :YMAX-T(0 
,1) :XMIN-T(0,0) :YMIN-T(0,1) ELSE ХМАХ-Т( 
(1,1) :ХМІМ=Т(1,0) :ҮМІН-Т(1,1) 
=1 TO N 

1380 IF Т(А,0)>ХМАХ THEN XMAX-T(A, 0) 
1390 IF T(A,1)»YMAX THEN YMAX-T(A,1) 
1400 IF Т(А,0) <ХМІМ THEN ХМШ-Т(3, 0) 
1410 IF T(A,1)«YMIN THEN YMIN-T(A,1) 
1420 NEXT A 

1430 IF TIM-l THEN XMIN=0 

1440 IF XMIN>O AND SUPP=0 THEN ХМІН-0 


1470 IF YMAX<0 AND SUPP=0 THEN YMAX=0 
1480 IF SCAL-l THEN PROCscal 


1490 XRG=XMAX-XMIN: YRG=YMAX-YMIN 

1500 IF DEMO=0 THEN PRINT''"XRG “XRG, "Y 
RG "YRG' Ё 

1510 IF DEMO=0 AND TIM-Ü THEN REPEAT IN 
PUT "Division intervals: Х axis, Ү axis 
(min. XRG/10, YRG/10) *XINT, YINT:UNTIL 
XINT>=4RG/10 AND YINT>=YRG/10 

1520 IF TIM=1 THEN XINT-l:REPEAT ШИЛ" 
Y axis division interval (min. YRG/10) * 
YINT:UNTIL ҮТНТ»-ҮЕС/10 

1530 UNITK=1079/XRG:UNITY=903 /YRG 

1540 XIZUNITK*XINT:YI-UNITY*YINT 

1550 XMI-UNITX*XMIN:XMA-UNITK*XMAX:YMI- 
UNITY*YMIN: YMA-UNITY* YMAX 

1560 ZEROX-1170-XMA:ZEROY-982-YMA 

1570 ENDPROC 

1580 : 

1590 DEF PROCplot 

1600 PLOT 4,7(1,0) *UNITX, T (1, 1) "UNITY 
1610 ІР TIM=1 THEN PLOT 4,0,T(0, 1)*UNIT 
Y:PLOT 6,7 (1,0) *UNITX, T(1, 1) *UNITY 

1620 FOR A-2 TO N 

1630 PLOT 6,T(A, 0) *UNITX, T A, 1) "UNITY 
1640 NEXT A 

1650 ENDPROC 

1660 : 

1670 DEF PROCdemo = 

1680 N=3 

1690 т(1,0)--100:7(1,1)--100:7(2,0)-0:т 


1710 PROCcalc 

1720 PRINT''"XRG "ХКС, "ҮВС “ҮЕС 

1730 PRINT*XINT*XINT, "YINT"YINT 

1740 IF TITL- THEN XT$-*XUnit':YT$-"YU 
nit*:TI$-*Demo Graph":XTLEN-5:YTLEN: 
LEN-10 

1750 TIME-Ü:REPEAT UNTIL TIME-200:CLS 

1760 ENDPROC 

1770 : 

1780 DEF PROCtitle 

1790 PRINT: INPUT LINE "Graph Title "71$ 

1800 TILEN-LEN(TIS) 

1810 REPEAT INPUT LINE "X Axis Title (5 

letters or less) *XT$ 

1820 INPUT LINE "Y Axis Title (5 letter 
S or less) *YTS 

1830 XTLEN-LEN(XTS) : YTLEN-LEN (YT5) 

1840 UNTIL XTLEN<6 AND YTLEN<6 

1850 ENDPROC 

1860 : 

1870 DEF PROCtim 

1880 INPUT “Input Months or Years " MS 

1890 IF FILE=0 OR FPLT=1 THEN PROCtimin 

1900 S$z*M*:R$-"Y':S-INSTR(MS, S$) :R=INS 
TR(MS, RS) 

1910 IF 8-1 THEN INPUT "Input first yea 
г "YR:DIM Y(N):FOR А=1 ТО N:Y(A)-YR:YR-Y 
R+1:NEXT А 

1920 IF S=1 THEN PROCmonths 

1930 ENDPROC 

1940 : 

1950 DEF PROCtimin 

1960 REPEAT PRINT*Number of "M$"? (max 
12) *;:INPUT **N:UNTIL №0 AND N«13 
1970 REPEAT FOR А-0 TO N:T(A,0)-A:PRINT 
“INPUT Y*;A;:INPUT * “T(A,1):NEXT A 

1980 PRINT*Accept these? (Y or N)":P=GE 
T 
1990 UNTIL P-89 OR P-121 
2000 ENDPROC 
2010 : 

2020 DEF PROCmonths 
2030 REPEAT INPUT “Input start month (J 
an-l) “START 
2040 UNTIL START>0 AND 5ТАВТ-13 
2050 DIM MT$(N+START) :DIM MTH$ (N) 


(2,1)-100:1(3, 0)-100:1(3,1)--100 2060 FOR A-l TO (START+N) :READ MTS(A):N 
1700 XINT-25:YINT-30 EXTA Continued on page 50 
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Minotaur’s Maze 


Miroslaw Bobrowski with a lesson in getting lost. 


This contribution from Poland is an 
excellent example of the speed gained by 
using machine code. Setting up mazes 
can be a fairly straight-forward job in 
Basic, so long as you don’t mind the 
maze being unsolvable. Creating a route 
through the maze can take an awful lot 
of checking and this is what takes the 
time. 


A typical maze 


This program does this very quickly and 
could form the basis for lots of different 
games. Type the program in and save it 
to disc. On running it you will be asked 
how large you want the maze to be, 
anything up to 38 by 30 squares, which 
makes a fairly impressive maze of 1140 
cells. 


The maze is drawn in mode 4 and 
appears very quickly indeed with two 
entrances - don’t worry about the 
complexity, it is solvable! Once the maze 
is on the screen the program checks to 
see if your printer is ready, prompts you 
if it isn’t, then prints the screen out. 


CHANGES AND IMPROVEMENTS 
The printer dump is for a nine pin Epson 
compatible printer and the dump code 
starts at line 2640. It is assembled from 
&900 and could easily be replaced with 
your own driver, but keep in mind that 
this is in mode 4 


A simple improvement would be 
to offer the option to print rather 
than going straight to it. This 
would let you look at several 
mazes and print the ones you like 
best. FNready checks for the printer 
at the start of the program, you 
could move this down the 
sequence and put a simple 
'YES/NO' prompt before 
PROCprinter is called. 


Beyond that, a screen dump could 
be useful for putting mazes into 
DTP packages, and you might 
want to try and make it work in 
mode 0 - this would give you the 
option to increase the maze size. 
Using other modes could give the 
addition of colour. 


M Program Minotaur's Maze 
Version B 1.0 
Miroslaw Bobrowski 
Jan/Feb 1994 
subject to copyright 


ar: PROCsetsize 
:PROCassemble 


Beebug January/February 1994 9 


Minotaur's Maze 
180 MODE 7:END 1 Гаю: 
190 : 1190 DEF PROCborder 


1000 DEF PROCsetsize 

1010 FOR Ү%-1 TO 2:РЕТНТТАВ(8, YS) CHR$14 
lCHR$129CHRS157CHR$131"MINOTAUR'S MAZE 
"СНЕЅ156:МЕХТ 

1020 PRINT''CHRS134*Enter number of col 
Umns'CHR$129*(4-38) :*CHRS131:REPEAT: INP 
UTTAB(34,5)SPCSTAB(34,5)"*HB:IF Н%<4 OR 
H%>38 SOUNDI, -12, 1, 10:UNTIL FALSE ELSE U 
NTIL TRUE 

1030 PRINT'CHR$134"Enter number of rows 

"CHR$129* (4-30) :"CHR$131:REPEAT: INPU 

TTAB(34,7)SPCSTAB(34,7) "V&:IF У%<4 OR V 
5530 SOUNDI,-12,1,10:UNTIL FALSE ELSE UN 
TIL TRUE 

1040 Mi-H$*V&- L:RE-20-H&DIV2:Q$-1036-32 
*(у%+2) 

1050 ENDPROC 

1060: 

1070 DEF PROCchar 

1080 VDU 23,224,0;0;0;0;23,225, 195, 129, 
129, 129,129, 129, 129, 255, 23, 226, 255, 129,1 
28,128, 128, 128, 129, 255, 23,227, 195,129,12 
8,128, 128, 128, 129, 255,23,228, 255, 129, 129 
,129, 129, 129, 129, 195, 23, 229, 195, 129, 129, 
129, 129, 129, 129, 195 

1090 VDU 23,230,255, 129, 128, 128, 128,128 
,129, 195, 23,231, 195, 129, 128, 128, 128, 128, 
129, 195,23,232, 255, 129, 1, 1, 1, 1,129,255,2 
3,233, 195, 129, 1, 1, 1, 1,129,255, 23, 234,255 
,129,0,0,0,0,129,255,23,235,195,129,0,0, 
0,0,129,255 

1100 VDU 23,236,255,129,1,1,1,1,129,195 
,23,237,195,129,1,1,1,1,129,195,23,238,2 
55,129,0,0,0,0,129,195,23,239,195,129, 
0,0,0,129,195 

1110 ENDPROC 

120: 

1130 DEF FNready 

1140 *ЕХ 21,3 

1150 Z$-ADVAL(-4) :VDU2, 1,0,1,0,3 
1160 IF ADVAL(-4) 2% VDU?: PRINT" "ТАВ(7 
)CHR$133*Get your printer ready*'TAB(9)C 
HR$133'then press апу key*;:REPEAT UNTIL 
GET: PRINT: =FALSE 

1170 =TRUE 


1200 VDU 7,30:MOVE R*32424,999:DRAW (R 
$+Н%) *3244,999:DRAN. (R%+H%)*32+4,987-32* 
Vi:DRAW (R&eHi)*22-8,987-32*V& 

1210 MOVE (R&4Hi)*32-28,987-32*V$: DRAW 
R8*32-8, 987-32*VB:DRAW R8*32-8, 999: DRAW 
881324, 999 

1220 ENDPROC 

1230 : 

1240 DEF PROCprinter 

1250 CALL &900 

1260 VDU 2,1,27,1,87,1,1 

1270 PRINT'TAB(7) "Minotaur's Maze No."; 
1870 AND &FFFFFF 

1280 VDU 1,27,1,87,1,0,3 

1290 ENDPROC 

1300 : 

1310 DEF PROCassenble 

1320 cell-&70:tcell-&72:row-&74:col-&75 

1330 index-&76:dir-&77:counter-&78 

1340 liml-&7A:lim2-&7B:tempa-&7C 

1350 rnd-&7D:oswrch-&FFEE 

1360 : 

1370 FOR ра55-0 TO 2 STEP 2 

1380 Р%-сойе: [ОРТ pass 

1390 .buildmaze 

1400 LDA &FE68:BEQ buildmaze:STA rnd 

1410 LDA $0:STA liml:LDA #H8:STA lim2 

1420 JSR random:STA col 

1430 LDA #0:STA liml:LDA #V%:STA lim2 

1440 JSR random:STA row 

1450 JSR calccellno 

1460 LDA#O:STA counter:STA counter+1 

1470 .main 

1480 JSR check 

1490 LDA index:CMP #1:BEQ choosedir 

1500 STA lim2:INC lim2:LDA 81:5ТА liml 

1510 JSR random:STA index 

1520 .choosedir 

1530 LDX index:LDA tq,X:STA dir:TAX 

1540 ІҮ 80:CLC:LDA (cell),Y:ADC power, 
| Х:5ТА (cell),Y 
| 1550 JSR display 
1560 LDA kk,X:BEQ findrow 
| 1570 BMI minus:INC col:BNE findrow 
1580 .піпив:ПЕС col 
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1590 .findrow 

1600 LDA wk,X:BEQ newcell 

1610 BMI minus2:INC row:BNE newcell 
1620 .minus2:DEC row 

1630 .newcell 

1640 JSR calccellno 

1650 DEC dir:DEC dir:LDA dir:BPL newdir 
1660 АРС 34 

1670 .newdir 

1680 STA dir:TAX 

1690 ШҮ #0:CLC:LDA (cell), Y:ADC power, 
X:STA (cell),Y к 

1700 JSR display 

1710 INC counter:LDA counter:BNE checke 
nd 

1720 INC counter+1 

1730 .checkend 

1740 СМР #(М%М00256) :BNE notend 

1750 LDA counter+1:CMP 8(МЕрТУ256) :ВМЕ 
notend 

1760 LDA #0:STA col:STA row:JSR calccel 
Ino 

1770 LDYRO:CLC:LDA (cell), ¥:ADC #1:STA 
(cell) ,¥ 

1780 JSR display 

1790 LDA $(H&-1):STAÀ col:LDA $(V$-1):ST 
А row:JSR calccellno 

1800 LDY#0:CLC:LDA (cell) Y:ADC 84:5ТА 
(cell),Y 

1810 JMP display 

1820 .notend 

1830 JMP main 

1840 
1850 
1860 
1870 
1880 
1890 
1900 
andom 
1910 RTS 

1920 : 

1930 .check 

1940 LDY #0:LDX #0:ST index 

1950 LDA row:CMP #1:BCC notsol 

1960 SEC:LDA cell:SBC #H8:STA tcell 
1970 LDA cell+1:SBC #0:STA tcell+1 


.random 

LDA rnd:AND $648:ADC 8638 

ASL A:ASL A 

ROL rnd+2:ROL rnd+1:ROL rnd 

LDA rnd 

СМР limi :BCC random:CMP lim2:BCS г 


1980 LDA (tcell),Y:BNE notsol 

1990 INX:LDA #0:STA tq,X 

2000 .notsol 

2010 LDA col:CMP $(H$-1):BCS notso2 
2020 CLC:LDA cell:ADC #1:STA tcell 
2030 LDA cell+1:ADC #0:STA tcell+1 
2040 LDA (tcell),Y:BNE notso2 

2050 INX:LDA #1:STA tq,X 

2060 .notso2 

2070 LDA row:CMP #(V8-1) :BCS notso3 
2080 CLC:LDA cell:ADC #H8:STA tcell 
2090 LDA cell+1:ADC #0:STA tcell+1 
2100 LDA (tcell),Y:BNE notso3 

2110 INX:LDA #2:STA tq,X 

2120 .notso3 

2130 LDA col:CMP #1:BCC notsod 
2140 SEC:LDA cell:SBC #1:STA tcell 
2150 LDA cell+1:SBC #0:STA tcell+1 
2160 LDA (tcell),Y:BNE notso4 

2170 INX:LDA #3:STA tq,X 

2180 .notsod 

2190 STX їлдех:ТХА:ВЕ) nextcell 
2200 RTS 

2210: 

2220 .nextcell 

2230 INC col:LDA col:CMP #Н%:ВМЕ notedg 
e 

2240 ША 80:5ТА col 

2250 INC row:LDA row:CMP #V%:BNE победу 
e 

2260 LDA #0:STA row 

2270 .notedge 

2280 JSR calccellno 

2290 LDY #0:LDA (cell),Y:BEQ nextcell 
2300 JMP check 

2310 : 

2320 .calccellno 

2330 ША row:STA tempa 

2340 ША #0:STA cell 

2350 LOX #8 

2360 .multbyH 

2370 LSR tempa:BCC skip 

2380 CLC:ADC #Н% 

2390 .skip 

2400 ROR A:ROR cell 

2410 DEX:BNE multbyH 

2420 STA cell+1 
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Minotaur’s Maze 


2430 CLC:LDA cell:ADC col:STA cell 

2440 ВСС addmazeaddr:INC се11+1 

2450 .addmazeaddr 

2460 CLC:LDA #maze MOD 256:ADC cell:STA 
cell 

2470 LDA #maze DIV 256:ADC cell+1:STA c 
ell+1 

2480 RTS 

2490 : 

2500 .display 

2510 PHP:LDA #31:JSR oswrch 

2520 LDA col:ADC 8R&:JSR oswrch 

2530 LDA row:ADC #1:JSR oswrch 

2540 ШҮ &0:CLC:LDX (cell), Y:ADC 8224: 
SR oswrch 

2550 PLP:RTS 

2560 : 

2570 .tq EQUBO:EQUD 0 

2580 „КК EQUB 0:EQUB 1:Е00В 0:EQUB &FF 

2590 .wk EQUB & UB 0:EQUB 1:EQUB 0 

2600 .power EQUB l:EQUB 2:EQUB 4:EQUB 8 
2610 .maze EQUS STRINGS (255,CHR$0) : EQUS 
STRINGS(255,CHR$0):EQUS STRINGS (255, CHR 
$0) :EQUS STRING$ (255, СНВ$0) :EQUS STRINGS 
(120, CHR$0) 

2620 ]:NEXT 

2630 : 

2640 osword=&FFF1:osbyte=&FFF4 

2650 х=&70:2=&72:у=&80 

2660 tint-&74:countz&75:octet-&76 

2670 : 

2680 FOR pass=0 TO 2 STEP 2 

2690 РЬ-5900 

2700 [OPT pass 

2710 ША #26:JSR oswrch 

2720 LDA 83:LDX 810:458 osbyte 

2730 .clear JSR next 

2740 .line JSR esc 

2750 LDA 865:JSR oswrch 

2760 LDA #8:JSR oswrch 

2770 .load LDA #252:STA y 

2780 LDA #3:STA үе! 

2790 .newline LDA #0:STA x:STA x+1 

2800 .bit JSR esc 

2810 LDA #76:JSR oswrch 

2820 LDA #192:JSR oswrch 

2830 LDA #3:JSR oswrch 


2840 .start LDA #4:STA count 
2850 LDA y:STA 2 

2860 LDA y+1:STA 241 

2870 .readpal LDX $&70:LDY $0:LDA #9 
2880 JSR osword 

2890 LDA tint:AND 87:ТАҮ 
2900 .byte LDX #0 

2910 ША pattern, Y 

2920 .loopl LSR A:ROL octet,X 
2930 LSR A:ROL octet,X 

2940 INX:CPX #3 

2950 BNE loopl 

2960 .loop2 DEC count 

2970 ВЕО print 

2980 SEC:LDA z:SBC #4:STA z 
2990 LDA z+1:SBC #0:STA 2+1 
3000 JMP readpal 

3010 .print LDX 80 

3020 .1оор3 

3030 LDA octet,X:USR oswrch 
3040 INX:CPX #3 

3050 BNE 100р3 

3060 .xloop 

3070 CLC:LDA x:ADC #4:STA х 
3080 LDA x+1:ADC #0:STA x+1 
3090 СМР #5:BNE start 

3100 JSR next 

3110 .yloop 

3120 SEC:LDA y:SBC #16:5ТА y 
3130 LDA y+1:SBC #0:STA у+1 
3140 LDA y:CMP 8(08М00256) :ENE cont 
3150 LDA y«1:CMP $(Q&DIV256):BEQ end 
3160 .cont 

3170 JMP newline 


3190 JSR esc 
3200 LDA #64:JSR oswrch 

3210 LDA #3:LDX $0:JMP osbyte 
3220 .esc 

3230 LDA #27:JMP oswrch 

3240 .next 

3250 LDA 810:JMP oswrch 

3260 .pattern 

3270 EQUD &FFFFFFOO 

3280 EQUD &FF000000 

3290 ] :NEXT 

3300 ENDPROC B 
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Putting Directories to Work (Part 2) 


Michael Shepherd goes in search of the lost file. 


Last month's program, Contents, 
presented the user with a display of the 
current directory which was then 
scanned in order that a further selection 
could be made. Contents assumes the 
user knows the full pathname of the file 
required. If the pathname isn't known, 
Contents is of less use, as the user then 
has to scan a number of directories to 
find the required file. 


Routines like *EXALL display all the 
directories and files stored on an ADFS 
disc. It is thus possible to read through 
the list and find any file or directory. 
However, this takes time and is 
the type of task best left to the 
computer to carry out, given an 
appropriate routine. 


The accompanying program, 
Search, will find any named ADFS 
file or directory (if the name is 
duplicated it will find one of the 
occurrences) and give the full 
pathname. If the target is a file it 
will then ask for the appropriate 
language and load it. If the target 
is a directory, it will make it the 
current directory. If the name of 
the target is duplicated and the 
file found is not the one required, it 
should be renamed and the search 
repeated. 


The search starts in the root directory 
and traces the directory structure branch 
by branch. If the target is a directory, 
then each directory is checked against 
the target as it is located, otherwise the 
next sub-directory is sought. The 
outermost directory is found on each 
branch, then, if the target is a file, the 


directories are searched for the target as 
the path is retraced to the root directory. 
This may sound the wrong way round, 
but the logic is simpler and ‘lost’ files are 
more likely to be in ‘outlying’ directories 
than those nearer home. 


Searches are always carried out on the 
current directory, so that it is only a 
matter of copying it into user RAM, 
using the fourth byte of the entry to 
distinguish files from directories. The 
program will accommodate up to 23 
levels of directories, and screen messages 
indicate the progress of the search. 


Finish 


« 


Рїдиге 1. Hypothetical directory structure 


The search technique is illustrated in Fig. 
1, which shows a hypothetical directory 
structure containing directories $ (the 
root directory) and A - G. In order to 
provide a full description, it is assumed 
that the search is for a directory which 
does not exist, thus ensuring a search of 
the complete disc. Table 1 lists the screen 
messages which would appear as the 
search proceeds. For clarity, the search 
has been restricted to that for a directory; 
if the target had been a file there would 
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have been a search for the file every time 
the search returned to a parent directory. 


Searching directory $ for Sub-directory 
Searching directory $.A for Sub-directory 
Searching directory $ for Sub-directory 
Searching directory $.B for Sub-directory 
Searching directory S.B.D for Sub-directory 
Searching directory $.B for Sub-directory 
Searching directory S.B.E for Sub-directory 
Searching directory S.B.E.G for Sub-directory 
Searching directory S.B.E for Sub-directory 
Searching directory S.B for Sub-directory 
Searching directory $ for Sub-directory 
Searching directory S.C for Sub-directory 
Searching directory $ for Sub-directory 


Table 1. Scanning the directories of Fig. 1 


Starting with the first entry in the root 
directory ($), each entry is examined in 
turn until sub-directory A is found. At 
this point a number of things take place - 


The sub-directory's name is read and 
added to the pathname (=$.A). 


If the target is a directory, the target name 
is checked against the new directory 
name. If it matches the search is ended. 


The position of the next entry in the 
current directory is recorded. 


The length of the new pathname is 
recorded (=3). 


The sub-directory A is made the current 
directory and copied into user workspace. 


The search for a sub-directory resumes at 
the first entry of the new current 
directory A. 


This cycle is repeated until the search 
reaches the end of the directory without 
finding a further sub-directory. If the 
target had been à file, this current 
directory A would be searched again to 
see if it contains the target file (this is 
indicated in Fig. 1 by *). If not,(and this 
must always happen if the target is a 
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directory), the program returns to the 
previous directory $ and resumes the 
interrupted search from where it was 
broken off, at the same time shortening 
the pathname appropriately. In this way 
it next finds directory B, which it enters 
and scans in exactly the same way to find 
directory D. This contains no sub- 
directory but is searched for the target 
before resuming the scan of B. 


The further scan of B leads to directory E 
which contains directories F and G. In the 
Scan of E, when F is encountered it is 
entered, scanned for further directories 
and then searched for the target before 
returning to E to continue the scan there. 
The same process is repeated when G is 
encountered before returning to E and 
thence to $. Resumption of the scan of $ 
finds directory C before the search 
eventually finishes when the end of 
directory $ is reached. 


In reality, it is to be expected that the 
target entry would be found, assuming 
the user knew on which disc the entry 
had been made. However, if the search 
was unsuccessful the disc can be changed 
and the search continued from the prompt. 


If the search is successful then the target, 
ifa file, can be loaded into the appropriate 
language. If а directory, it is already the 
current directory and immediately 
accessible. 


THE PATHNAME 

In the first article, and again here, 
reference is made to alterations to the 
pathname. As pathnames are a vital 
feature of the ADES, it is worthwhile 
explaining how the pathname is recorded 
in the programs. 


Apart from the root directory, which is 
always named ‘$’, an ADFS entry name 
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may be up to 10 characters long. As 
directory names in a pathname must be 
separated Бу?” a directory can occupy 
up to 11 characters in a pathname. Thus a 
pathname length of 255 characters (the 
maximum length of a BASIC string) can 
hold at least 24 levels of directory. This is 
composed of - 


°$.” + 23 units of (‘directory name’ + 
2+23х 


Using the variable names assigned in the 
programs, a directory system can be 
visualised as shown in Table 2. 


level% pathname$ _pathlength%(level%,0) 


о $ 1 
1 $.FIRST 7 
2 S.FIRST.SECOND 

3 $.FIRST.SECOND.THIRD 


Table 2. Recording pathnames 


It can be seen that, as the level of 
directory increases (i.e. the further the 
current directory is away from the root 
directory), the pathname has to be 
incremented by adding “ and the new 
directory name to it. More concisely: 


pathname at (1еуе!%+1) = pathname at 
(level%) + *./ + (directory name) 


Moving closer to the root directory 
shortens the pathname as a result of 
removing the old directory name from 
the pathname: 


pathname at (level%-1) = pathname at 
level% - '/ - (directory name) 
The simplest way of accomplishing this 
curtailment is by use of the statement: 


pathname at (level%) = 
LEFTS(pathname$,pathlength®6(level%,0)) 


A little thought will show that this 
statement is always true and will, if 
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required, accommodate decrements of 
level% which are greater than 1. 


The array used in the program Contents, 
pathlength%(level%), is in fact one- 
dimensional. In the program Search a 
two-dimensional array is used; the 
elements pathlength%(level%,1) contain 
the points at which the scan of the 
directory is to be resumed on return from 
the higher level. 


These programs should be of great help 
when using ADFS discs with complex 
structures, I hope it will also throw some 
light on the way ADFS works. 


10 REM Program Search 

20 REM Version B1.0 

30 REM Author J M Shepherd 

40 REM BEEBUG Jan/Feb 1994 

50 REM Subject to copyright 

60: 

100 ON ERROR GOTO 1960 

110 MODE 0:0SCLI*DIR $": 

120 pathname$=STRING$(255,* *) :pathnam 
e$="$" 

130 DIM pathlength$(22,1) :pathlength’( 
0,0)=1 

140 FOR 1еуе1%-0 ТО 22:pathlength$ (lev 
e18, 1)=&2000:NEXT: levelt=0 

150 : 

160 PROCtarget:foundk-FALSE:di rend$-FA 
LSE 

170 H$-2:PROChugo(H$) 

180 REPEAT 

190 PROCnext dir:IF type$-0 PROCsearch 
-dir 

200 IF found& PROCsuccess ELSE IF leve 
180 PROCbackwards ELSE dirend®=TRUE 

210 UNTIL foundè OR direndé 

220 VDU3:IF found’ PROClanguage ELSE P 
ROCfailure 

230 IF accepted’ RUN ELSE CLS:END 

240 : 
| 1000 DEF PROCyesno 
| 1010 PRINTTAB(20,28);"Please confirm (Y 
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( (СЕТ MOD 32)-14) /11:UNTI 
L G=INT(G) :accepted$=-G 

1030 PRINTTAB(20, 28) ;SPC(22) 

1040 ENDPROC 

1050 : 

1060 DEF PROCtarget 

1070 PRINTTAB(20, 18) ;"Give file/directo 
ry name required 

1080 REPEAT 

1090 REPEAT 

1100 INPUTTAB(56, 18) input$ 

1110 UNTIL LENinput$>0 AND LENinput$<11 

1120 target$="":FOR 1-1 TO LENinput$:; 
ASCMID$(input$, 1,1) :IF A295 A-A-32 

1130 target $=target$+CHR$A:NEXT 

1140 РВІМТТАВ (20,20) "18 this a directo 
ту or a file (D/F) ? 

1150 ВЕРЕАТ:сурей-1-((0ЕТ-4) MOD 32)/2: 
UNTIL type&-l OR type$-0 

1160 PRINTTAB(20,26) "Target is ";MIDS(* 
directoryfile", 10-typet*9,9);" ";target$ 

1170 PROCyesno:UNTIL accepted’: 

1180 PRINTTAB(20,26)*Is a print-out nee 
ded 2";SPC(15); :PROCyesno:CLS:IF accepte 
di ур 

1190 ENDPROC 

1200 : 

1210 DEF PROCshow dir 

1220 PRINTTAB(10);"Searching directory 
";pathname$;" for *; 

1230 IF searcht PRINT “target *;target$ 
ELSE PRINT "sub-directory" 

1240 ENDPROC 

1250 : 

1260 DEF PROCsearch dir 

1270 search&-TRUE:E-&2000:PROCshow dir 
:found$=FALSE 
1280 REPEAT 
1290 IF E$?3 DIV &80-type& PROCstandard 
ise(E%):IF modified$-target$ found’=TRUE 
1300 IF found$-FALSE E&-E$«61A 
1310 UNTIL found’ ÔR ?E$-0 
1320 ENDPROC 
1330 : 

1340 DEF PROCnext dir 


1350 REPEAT 

1360 F&-pathlengtht (levelt, 1) :searcht-F 
ALSE: PROCshow dir 

1370 REPEAT 

1380 modified$-"*:1F 2E%>0 AND (E873 DI 
У 880)-1 PROCstandardise(E%) ELSE E&-E&« 
НА 

1390 UNTIL LENmodified$ OR ?E&-0 

1400 IF modified$-target$ found&-TRUE E 
LSE IF ?E% PROCforwards 

1410 UNTIL (?Е%=0 AND modified$-**) OR 
founds 

1420 ENDPROC 

1430 : 

1440 DEF PROCforwards 

1450 pathname$-pathname$» " . " modi 1646: 
pathlengthé (level$,1)-E$451A 

1460 level$=level%+1:pathlength$ (1еуе1% 
+ 0) =LENpathname$ 

1470 H%=(E%!&16 AND &FFFFFF) :PROChugo (H 
$) :OSCLI"DIR *+pathname$ 

1480 ENDPROC 

1490 : 

1500 DEF PROCbackwards 

1510 level8=levelt-1:E%=pathlengtht (ley 
el8,1)+51A 

1520 pathname$=LEFT$(pathname$, pathleng 
th8 (level, 0) ) :OSCLI*DIR"+pathnames 

1530 Н%-!82401 AND &FFFFFF:PROChugo(H) 
:OSCLI"DIR *+pathname$ 

1540 ENDPROC 

1550 : 

1560 DEF PROChugo(H$) 

1570 A%=&72:X%=&70:Y%=0:2X%=0:X%!1=&1FF 


(НФ AND &FF0000) /810000 
% AND &FF00) /&100 
1600 Х828-(НЗ AND &FF) 

1610 xe? 210-0:X$!11-0 

1620 CALL &FFFl 

1630 ENDPROC 

1640 : 

1650 DEF PROCstandardise(X) 


1660 modified$="" :char$=0 

1670 REPEAT 

1680 A=?(X+char$) MOD &80:IF А>95 A-A-3 
2 Continued on page 20 
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File Handling (Part 2) 


Marshal Anderson delves further into data files. 


course J Last month we 


looked at a simple 
way of saving data to a disc using 
PRINT# and INPUT#. The example dealt 
with a whole file at once, which limits 
the size of a file to the amount of 
memory available in the machine. So 
what do you do if you want to just read 
or write one part of a file? 


Basic provides PTR#<file handle» to help 
with this. It represents the position of the 
pointer in the file, that is the place Basic 
will read or write from. It follows, then, 
that if you know where the information 
you want is stored within a file you can 
read or write just that part. This can be 
done by making the length of each 
chunk the same, a method that's used in 
this month's example. 


To get full control of your file you need 
to deal with it a byte at a time. This will 
allow you to read and write data of 
variable lengths once you have 
understood the basic principle. So, 
although the task in the example could 
be done with PRINT# and INPUTS, it is 
used to demonstrate the fundamentals of 
byte-at-a-time file handling. 


Basic's BPUT# and BGET# allow you to 
deal with individual bytes on the disc 
and EXT# tells you how long a file is. 
Because you can tell the pointer where to 
point to as well as find out where it is 
currently pointing we have some very 
powerful tools for file manipulation. 


There is, of course, a down side to this 
flexibility. With PRINT and INPUT# 
Basic takes care of the starts, length, and 
ends of the items within a file. Using a 
byte at a time requires you to manage 


this which means the extensive use of 
loops, counters and markers and some 
fairly clever string handling. 


The best way to illustrate these tools is to 
take the task we set last month and use 
these new methods to give us a more 
flexible system. The program Betterfiles 
does this and I will take you through it 
step by step to show you what's going 
on. A little warning note here; we dealt 
last month with the problems caused by 
files being left open; this will often 
happen if there are errors in your 
program or you use the Escape key to 
leave it. Before you begin, type *KEY 0 
CLOSE#X!M. Then, any time the 
program stops with an error you can 
press function key 0 to make sure the file 
is closed. 


There are two ways into the program; 
start a new file or use an existing file. If 
you start a new file PROCcreatefile creates 
a blank file on disc. Otherwise an 
existing file is opened. 


Either way, the program moves on to 
PROCread add. edit which covers the 
main operations. This starts by opening 
the file in question with OPENUP. When 
a file is opened the pointer is at the 
beginning, pointing at byte 0. Line 1440 
checks to see if the pointer and the 
length of the file are the same - if this is 
true then the pointer is pointing at the 
end of the file and it must be empty so 
the program calls PROCaddrecords. 


This procedure first calls PROCgetinfo 
which asks you to type in the 
information for just one employee. The 
data goes into the variables NAMES, 
AGE, WAGE and 108. Now we сай 
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PROCvriterecord and this is where you 
will need to start concentrating 


Look at line 1690. The four variables are 
assembled into a long string ready for 
writing, we'll call this a record. The 
numeric values are converted to text; this 
is a good idea as it allows you to deal 
with any number, not just the 255 limit in 
a byte. Basic provides easy ways of 
converting between textual and numeric 
values. A “# is placed between each bit of 
text so that we can separate them again 
when we read them in. This marker is 
purely arbitrary; you just need a character 
that won't be used in the record. 


To keep things simple I have decided to 
use 100 byte blocks for each record, this 
makes moving the pointer easy as we 
know that records start at byte 0, 100, 200 
etc. Every time we put a byte to, or get a 
byte from the file, it is written or read at 
the pointer, which then moves to the next 
byte. To make sure the pointer moves on 
to the next whole hundred we must 
make our record 100 characters long. 
Line 1700 does this, padding the string 
out with hashes. I've done it this way, 
rather than just move the pointer on, to 
make sure that no random garbage can 
confuse things. It's a bit of overkill here 
but it’s a good principle. 


The loop starting at 1710 uses BPUT# to 
write the bytes to the disc. The form for 
BPUT# is: 


BPUT#<filehandle>,<byte to be si 


The byte in this case is the ASCII value of 
each character in the string. Each time a 
byte is written the pointer moves on so, at 
the end of the loop,it will have moved on 
exactly 100. Once the record is written the 
program passes back to PROCwwriterecord 
where the option is offered to write 
another. 


Now go back to PROCread. add. edit and 
assume we have used an old file. The 
program enters a loop which first calls 
for a record to be read from the file, it 
assumes that the pointer is at the start of 
a record - which it should be! 


PROCreadfromfile uses FNonelump to fill 
up the variables from the disc. 
FNonelump reads along the file, adding 
the characters represented by the bytes to 
AS, until it finds a ЭР, The data is read by 
BGET#<file handle» which you read as if 
it were a numeric variable. Once A$ is 
finished, the hash is stripped off the end 
and the the result passed back to 
PROCreadfromfile. With the variables AGE 
and WAGE the string is converted into a 
number using VAL. 


You can see it is vital that data is written 
and read in the same order, otherwise 
you will lose track of everything. Once 
the variables are full they are printed out 
by PROCprintinfo. 


An option is given to modify the record 
or continue, let’s look at continuation 
first. After reading the last record the 
pointer will have been left somewhere 
before the start of the next record, the next 
whole hundred - we need to get it to the 
start of the next record. Line 1510 uses a 
little maths to do this; divide by 100, use 
INT to knock off the decimal points, add 
1, multiply by 100. You can see that 
PTR#<file handle> is dealt with just like 
a variable. 


PROCmodify allows part of the file to be 
altered. First it uses PROCgetinfo to get 
new values for NAMES, AGE, WAGE, and 
IDS. We need to write over the part of our 
file that contained the original record. To 
do this we must move the pointer back to 
the start of the record. Line 1790 uses the 
same maths as before but doesn’t add 1 
before multiplying back up. Having done 
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this, PROCwriterecord puts the new 
information on the disc, the extra hashes 
making sure that the old information is 
completely overwritten. 


POSSIBLE ERRORS 

The errors described last month may still 
come up for the same reasons. A new one 
will be the "Can't extend’ error. You will 
get this if you create and alter a lot of files 
in DES. DFS fits files into any space it can 
find, or starts them immediately after the 
last one. This can mean that your file can 
come up against the start of the next one 
on the disc if you try to add records. 
While experimenting with this program 
use a fresh disc and don’t delete files. 


You can see the flexibility of using this 
byte-at-a-time approach. Take some time 
getting used to the pointer then, instead 
of using fixed lengths for records, try 
using markers for the starts and ends. 
Using EXT# the way I have is a bit of a 
short cut and stops you being able to 
delete records as the program needs to 
find the end of the file. Try using “DUMP 
to see how others have done it, then see if 
you can do it better, 


10 REM Program BetterFiles: 

20 REM Version В1.0 

30 REM Author Marshal Anderson 

40 REM BEEBUG Jan/Feb 1994 

50 REM Program subject to copyright 


1010 PRINT *1) Create new file*''2) Use 
existing file*'*3) Finish" 

1020 INPUT Y 

1030 =¥ 

1040 : 

1050 DEF PROCcreatefile 

1060 INPUT"Name of file to create";FILE 
5 
1070 X-OPENOUT FILES 

1080 CLOSERX 

1090 PRINT FILES;" created" 

1100 ENDPROC 

110: 

1120 DEF РЕОСдес filename 

1130 INPUT"What is the name of your fil 
je" ;FILES 

1140 ENDPROC 

1150 : 

1160 DEF PROCreadfromfile 

1170 NAMES-FNonelump 

1180 AGE=VAL(FNonelump) 

1190 WAGE=VAL(FNonelump) 

1200 ID$-FNonelump 

1210 ENDPROC 

1220 : 

1230 DEF FNonelump 

1240 А$=** 

1250 REPEAT 

1260 А$=А$+СНВ$ (BGET#X) 

1270 UNTIL RIGHTS (А5, 1)="#" 

1280 =БЕРТ$ (АЗ, БЕМ(А$) -1) 

1290 : 

1300 DEF PROCgetinfo 

1310 PRINT’ *You are going to enter deta 
ils for 1 employee.''"You need name, age 
‚ wage and ID code." 


60 : 1320 INPUT 
100 MODE 3 | 1330 INPUT 
110 REPEAT 1340 INPUT 
120 A-FNmenu | 1350 INPUT 
130 IF А-1 PROCcreatefile:PROCread add 1360 ENDPROC 
edit | 1370 : 
140 IF А=2 PROCgetfilename:PROCread_ad 1380 DEF PROCprintinfo 
dedit 1390 PRINT NAMES, AGE, " "МАСЕ, 105 
150 UNTIL A>2 | 1400 ENDPROC 
| 160 END | 1410 : 
170: 1420 DEF PROCread_add_edit 
1000 DEF Fimenu | 1430 X-OPENUP FILES 
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1440 IF PTR#X=EXT#X PROCaddrecords:CLOS 
E#X: ENDPROC 

1450 REPEAT 

1460 PROCreadfromfile 

1470 PROCprintinfo 

1480 PRINT'"'C'ontinue OR 'M'odify* 
1490 AS=GETS 

1500 IF A$-"M* PROOmodify 

1510 IF AS="C* THEN PTRÉX-((INT(PTREX/1 
00) )«1) *100 

1520 UNTIL PTRÉX-EXTÉX 

1530 РАТМТ' "АДА more records? (Ү/М)" 
1540 AS=GETS 

1550 IF A$-"Y* PROCaddrecords 

1560 CLOSEšX 

1570 ENDPROC 

1580 : 

1590 
1600 
1610 
1620 


DEF PROCaddrecords 
REPEAT 

PROCgetinfo 
PROCwriterecord 


| | 1810 proc 


1630 PRINT' "Another? (Y/N) " 


1680 DEF PROCwriterecord 

1690 record$=NAMES+"#"+STR$ (АбЕ)+"#*+5 
‘TRS (WAGE) +"#"+IDS 

1700 record$-record$«STRING$ (100-LEN(re 
cord$) , "#") 

1710 FOR Y&-l TO 100 

1720 BPUTHX, ASC (MIDS (record$, Ү8, 11) 

| 1730 NEXT 

1740 ENDPROC 

1750 : 

1760 DEF PROCmodify 

1770 PRINT"Type in new info" 

1780 PROCget info 

1790 РТЕВХ-(ТМТ(РТЕйХ/100) ) *100 

| 1800 PROCwriterecord 


Putting Dir Work 


tor 


5 


ontinued from page 16 


1690 IF A-13 ELSE modified$-modified$+c 
HRS (А) :char$=char&+1 

1700 UNTIL A=13 OR сһаг%-10 

1710 ENDPROC 

1720: 

1730 DEF PROCsuccess 

1740 PRINT'TAB(10);"Entry ";CHR$34;targ 
et$;CHR$34;" has been found." 

1750 PRINT'TAB(10);*The pathname is: "| 
Pathname$+". "+target$:found$=TRUE 

1760 REPEAT: PRINT'TAB(10) ; "RETURN to co 
ntinue"; :UNTIL GET-13 

1770 ENDPROC 

1780 ; 

1790 DEF PROCfailure 

1800 PRINT'TAB(10);"Entry *;CHR$34;targ 
et$;CHR$34;* not found." 

1810 PRINTTAB(8,28);"Try again ? *;:PRO 
Cyesno 
1820 ENDPROC 


|CLI*INFO "«target$ 

1860 PRINTTAB(20, 18) ; "Facilities availa 
| ble*+STRINGS (30, 5 *] 

1870 FOR line&-l TO 6 
1880 PRINTTAB(25, 20811 68) ;STRS (inei) ; 
|". "«MIDS(data$, 1ine$*5-4,5) :NEXT 
1890 PRINTTAB(30,28) ;"Enter choice (1 - 
6*; 
1900 REPEAT: lang$=GET-49:UNTIL lang$>-1 
AND langt<6 
| 1910 lang$-MID$ (data$, lang8*5+1, 5) 
1920 IF typet=1 OSCLI"KEYS OSCLI'DIR "+ 
target$ *|M*CAT|M* 

1930 IF type%=0 OSCLI'KEYS LOAD"+CHRS34 
+сагдес$+СНВ$34+* [M*CAT|M* 

1940 OSCLI*FX138,0,133*:0$CLI lang$ 
1950 : 
| 1960 REM error handling 
1970 REPORT;PRINT* at line ";ERL:STOP 


1830 : 
1840 DEF PROClanguage 
1850 READ data$:CLS:PRINTTAB(10, 16) ;:05 


1980 
1990 DATA*BASICSHEETSTOREWORD EDIT TERM 


20 
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Converting Newline Codes 
in Text 


Colin Robertson sorts out some text transfer problems. 


Text (ASCII) files are useful for 
transferring data between different 
applications and different machines. 
These days, BBC owners may well find 
themselves needing to transfer data to 
and from PCs. It is assumed here that 
they have the means to read and write 
discs in the appropriate formats, or to 
transfer data via the serial ports. 


BBC micros and the PCs differ in the 
coding and the method they use to 
generate new lines in text files. BBC 
machines frequently work with files 
containing carriage returns (CR) but no 
linefeeds (LF). When such a file is sent to 
screen, printer or serial port through the 
BBC’s output routine OSASCI, each CR 
is detected and sent to OSNEWL, which 
causes a LF to precede the CR. Thus the 
normal newline coding in a BBC micro is 
LF/CR 


PCs expect files to contain both carriage 
returns and linefeeds. Moreover, the 
normal coding for a newline is a carriage 
return followed by a linefeed (CR/LF). 
This is a reason why text files exported 
from a BBC micro to a PC can fail to be 
properly recognised by the PC, although 
this does not necessarily apply to all PC 
software. Likewise, a DOS text file may 
not be fully acceptable to BBC software. 
For example, Wordwise Plus treats all 
linefeeds as ‘illegal’ characters and 
replaces them with the ‘double bar’. 


The Convert program listed below 
assembles a machine code utility 
enabling the coding of newlines in text 
files to be output in a choice of styles 
when the file is typed (ie. using *TYPE) 


through the output system. It works by 
redirecting the OSWRCH vector at &20E, 
so that output can be processed by 
external routines before being sent on its 
way to the original address. Type in the 
assembly code carefully, making sure to 
save it before attempting to run it. When 
you run it, the object code will be 
assembled to &900 and information will 
be displayed about three available CALL 
addresses (nolfs, 40815 and normal). Make 
a note of these addresses. Also, you 
should accept the prompted option to 
save the object code under the filename 
Feeder. 


OPERATION 

In Convert, there is a ‘toggle’ feature that 
governs the redirection and restoration 
of the vector. As assembled, a NOP code 
is placed at .start and an RTS code at 
-normal. Initially the code has not been 
executed, so the vector has not been 
redirected and .oldvec does not contain a 
valid address (it contains zero). If .normal 
is called in this condition, nothing 
happens because the first instruction 
encountered is RTS. A call to either .nolfs 
or .doslfs executes a jump to .start, and if 
the instruction .start is NOP, the vector 
will be redirected, the old address being, 
stored at oldvec. However, the redirection 
routine also writes an RTS at .start and 
an NOP at .normal. This prevents a 
repeated attempt to redirect the vector 
while it is already redirected (which 
would cause the original address to be 
‘lost’), but it enables the vector to be 
restored by a call to .normal. The 
restoration routine interchanges the two 
instructions again. The reason for 
including this mechanism is to allow 
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freedom in the sequence of using the 
calls while permitting the code to be 
completely disengaged when not in use. 


It will be seen that a call to .doslfs causes 
the linefeed code &0A to be stored at 
char. Each call to OSWRCH is redirected 
to .newvec. If the output character is a LF 
it is suppressed. If it is а СЕ (&0D) it is 
sent on, but is then followed by the 
contents of .char, which is a LF. Thus the 
output text contains a LF after each CR, 
but no other LFs, whatever the input 
might have contained. 


The other option is to call .nolfs. This 
works in a similar way to .doslfs, except 
that the character written at .char is not a 
LF (it is actually zero). In this case, any 
LFs in the stream are removed as before, 
but none are added. The result is text 
with all LFs removed. 


It should be noted that the Feeder routine 
determines the output style of newlines 
absolutely, i.e. it does not depend on the 
style used in the input stream. So, no 
harm is done if you attempt to process a 
text file that already has the desired style. 
This should make it useful for both 
importing and exporting text files even if 
their initial newline style is not known. 


Although most users will find a load 
address of &900 to be satisfactory, the 
code can be assembled to any other 
suitable address in RAM, by assigning a 
different value to load% at the start of the 
program. However, the object code is not 
relocatable and must be re-assembled if 
the loading address is to be changed 


The object code can be loaded with *RUN 
Feeder or, from the’current directory or 
the current library directory, with the 
abbreviation *Feeder. It starts with an 
RTS to prevent automatic execution at 
the time of loading. 


A DEMONSTRATION 

Demo is a simple Basic demonstration 
Program that types an input text file and 
spools it to an output file three times; the 
first with DOS-type newlines (CR/LF), 
the second with no LFs at all and the third 
in the native BBC newlines (LF/CR). You 
can use any text file by renaming it 
INFILE or altering line 100 to carry the 
filename. Afterwards, you can verify the 
contents of any of the files with *DUMP. 


A point to mention about the Demo 
program is the inclusion of lines 200 and 
240, which turn the screen off 
temporarily while using *TYPE in the 
‘nolfs’ mode. This is because the screen 
needs LFs to generate its own newlines 
and when they are absent the display 
simply over-writes line after line without 
scrolling. In some circumstances, serious 
disruption can arise from allowing 
output to reach the screen while the 
input file is being processed. The device 
of using *FX3,6 to disable the screen can 
be used wherever required. 


On the Master series, depending on the 
actual content of the input file, it may be 
better to use *PRINT rather than *TYPE. 
"TYPE converts non-printing characters 
into GSREAD format and, as a 
consequence of this, prints the double- 
bar ‘control’ character | as | |. *PRINT, 
on the other hand, sends all the codes in 
the file as they are. In the ‘normal’ 
condition, no LFs will be added if 
*PRINT is used, but the doslfs and nolfs 
options of Feeder will work as described. 


The principles of the Demo program can 
easily be employed in programs written 
in other languages, especially as the 
statements consist predominantly of star 
commands. The author has used this 
utility as part of a Wordwise Plus 
segment program that can modify the 
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formatting features selectively in text files 500 EQUE &ÜA:RTS 
intended for transfer to other systems. 510 ] 
520 end%=P% 

10 REM Program Convert 530 NEXT 

20 REM Version В1.0 540 PRINT*Load Address: &';-load$ 

30 REM Author C W Robertson 550 PRINT*End address: &';-end$ 

40 REM BEEBUG Jan/Feb 1994 560 PRINT“For no LFs CALL 8": 

50 REM Program subject to copyright 570 PRINT*For DOS LFs CALL & 

60: 580 PRINT*To reset to normal CALL &'; 
| 100 MODE 7 -nomal 

110 10488-5900 590 PRINT*Save as 'Feeder' (Y/N)?* 

120 wrchv-&20E 600 REPEAT: AS-GETS 

130 FOR pass=0 TO 3 STEP3 610 pos=INSTR(*YyNn", A$) :UNTIL pos»0 

140 P$-load$ 620 cmd$-'SAVE Feeder "+STR$~loadt+" 

150 [OPT pass *+STRS~endé 

160 RIS 630 msg$="Not saved!" 

170 .nolfs 640 IF pos «3 THEN OSCLI cmd$:msg$="S 

180 LDA #0:STA char:JMP start avedi* 

190 .doslfs 650 PRINT msg$ 

200 LDA #80А:5ТА char 

210 .start 

220 NOP:LDA wrchv 10 REM Program Demo 

230 STA oldvec:LDA wrchv«l 20 REM Version В1.0 

240 STA oldvec+1:LDA énewvec MOD 256 30 REM Author Colin Robertson 

250 STA wrchv:LDA énewvec DIV 256 40 REM BEEBUG Jan/Feb 1994 

260 STA wrchv«l:LDA 8860 50 REM Program subject to copyright 

270 STA start:LDA #&ЕА 60 : 

280 STA normal:RTS 

290 normal 


300 RTS:LDÀ oldvec 
310 STA wrchv:LDA oldvec+1 


320 STA wrchv+1:LDA #560 140 *SPOOL outCRLF 

330 STA normal:LDA #&ЕА 150 OSCLI d$«fname$ 

340 STA start:RTS 160 *SPOOL 

350 170 CALL 5901 

360 180 05 

370 190 PRINT*Screen disabled - please wa 
380 igr 

390 200 *FX3,6 

400 210 *SPOOL outnoLF 

410 220 OSCLI d$«fname$ 

420 230 *SPO0L 

430 .suppress 240 *FX3 

440 RTS 250 CLS 

450 .send 260 CALL 5930 

460 JMP (oldvec) 270 “5РООБ outBEEB 

470 .oldvec 280 OSCLI d$«fname$ 

480 EQUs 0:RTS 290 *SPOOL 

490 char 300 PRINT*Program Ғілізһей Ер B 
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Machine Code Corner 
This month Toady gets interrupted (some hope! - ed.) 


Happy New Year, toad fans, hope you've 
recovered from all the jollities. All 
humbug, say I - I spent the whole time at 
my Beeb, as ever, toiling away night and 
day to bring you even more dazzling 
displays of (That'll do, frog. Ed.) 


I've had some more interesting questions 
from Arthur Adams. Arthur has written 
а screen-dump ROM, but he’s not sure 
how to code the bit which starts the 
thing in response to a certain 
combination of key-presses - he'd like to 
use Ctrl - Shift - ‘@’, as does one of the 
commercial screen-dump utilities. 


The point is that the screen dump 
software has to sit there, not getting in 
the way, while the screen is being set up 
by whatever program; then when the 
dump is needed it must be ready to go, 
preferably in response to an unlikely 
combination of key-presses. Ctrl - Shift - 
“87 (all at once) seems to me to fit the bill. 
The '@' mustn't appear on the screen, 
else it would show on the printout. 


There are several ways you can do this 
from any machine-code routine, and it's 
especially easy from a sideways ROM. 
For example, you could divert the 
interrupt vector into your ROM, and 
then read the keyboard at each interrupt 
(each key-press causes an interrupt), 
using OSBYTE &79 or some such. Or you 
could use the events system - event 2 is 
‘character entering buffer". 


Again, sideways ROMs on the Master 
benefit from service call &15, ‘polling 
interrupt. Although my final 
recommendation to Arthur is not going 
to be this option, Га like to digress for a 
moment (Cloches de l'enfer! Not again! 
Ed.) and have a look at the polling 


interrupt system, because it’s very clever 
and very handy. Anybody who managed 
to read my thingy on sideways ROMs 
without falling asleep will know that the 
MOS issues ‘service calls’ to the ROMs 
for all kinds of reasons: call 4 means 
'your turn to check out an as yet 
unrecognised star-command to be found 
at (&F2),Y'; call 9 means ‘user has issued 
a *HELP call - please do your bit’. There 
are lots of others, warning ROMs of 
things like ‘reset has occurred’ (call &27), 
‘close all files’ (&26). Call &15, ‘polling 
interrupt’, is just an alarm-call - when the 
polling system is activated, it just means 
"hello, ROM, another 10 milliseconds 
have gone Бу”, Your code then does its 
thing, whatever it may be, and goes 
dormant again. 


Now, the MOS needs to save 
unnecessary slowing-down of the 
computer by issuing these calls only 
when wanted. Such slowing may only be 
slight, but every little helps (or hinders? 
ed.). So, any ROM can turn polling on 
using OSBYTE 22, 'increment ROM 
polling semaphore', and it can issue 
OSBYTE 23 to signal that it no longer 
needs the polling. Notice that I carefully 
did not say that it can turn the polling 
off. There might well be one or more 
other ROMs active which still do want 
the polling; therefore, what OSBYTE 22 
really does is to increase by one the 
contents of a system variable (it's at 
&0243, if you ever need it), which the 
MOS reads before issuing a polling 
interrupt; the interrupt is not issued if 
the variable holds zero, which is its 
default state. So, any ROM, by 
incrementing this number, can turn the 
polling on, but it won't be turned off 
until every ROM which has at any time 
incremented it has later decremented it 
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again. Clever stuff, eh? In fact, you can 
read or write this flag, either directly at 
&0243 or by OSBYTE &B3, but the ‘legal’ 
convention should normally be observed 


This would do Arthur’s job, as 100 
checks a second are easily enough to 
keep a reliable eye on the keyboard, and I 
hope you'll agree that it’s a useful item in 
one’s repertoire, but in this case there is a 
neater way. We'll divert the vector INSV 
at &022A/&022B, then every time a 
character-key is pressed the MOS will 
call our code with the ASC of the 
character held in A. If it's not '&' we 
ignore it by jumping to the address that 
was in the vector before we diverted it. If 
it is ‘@’, we'll check Control and Shift; if 
they aren't both down we'll still ignore it, 
otherwise we'll turn off the cursor with 
VDU 23,1,0,0,0,0,0,0,0,0; do the printout 
and exit. 


This method is demonstrated in this 
month’s listing, although we use it to call 
a demo routine rather than type in a 
whole screen-dump. You can also save 
typing by tacking the real code onto one 
of the ROM headers published last year. 


First let's look at diverting the vector 
INSV - lines 580 to 670. We can't just 
divert it straight to the address of the 
routine .checkKeys in our ROM; some 
other ROM will be paged in at the time 
you call for the screen dump, and the 
MOS would call that address in the other 
ROM, not ours: all you'd get would be a 
crash. What we do is divert INSV into 
one of a series of specially calculated 
addresses in page &FF, and leave a note 
of our ROM number and the address of 
.checkKeys in an ‘agreed’ place in page 
&0D. Then, when something passes 
through INSV into the page &FF address, 
the MOS looks up the details in page 
&0D, pages in our ROM and calls 
checkKeys. When our routine exits, the 


MOS picks up where it had left off before 
the keypress. 


How do we calculate the page &FF and 
page &0D addresses? First find the ‘vector 
number’ by subtracting &200 from its 
address and dividing the answer by two. 
Multiply this number by three and add 
&FF00 to get the one address, and add 
&D9F for the other. All this rigmarole 
really means is that the vectors are two 
bytes ‘wide’, whereas the extended vector 
addresses (both lots) are three bytes each, 
so that from a given start-address you find 
your vector by counting up in twos, then 
from the other two starting-points you 
count up in threes. 


Our vector is at &022A, so its ‘vector 


‘number’ is &15: &022A-&0200 = &2A; 


&2A/2 = &15 and 3*&15 = &3F. Adding 
«ЗЕ to &0D9F gives &0DDE, which is 
where we place the low byte of the 
address of our routine. In the next two 
locations we place the high byte of the 
address and then the number of the slot 
our ROM is currently in (line 630), 
having read the latter from &F4 (where 
the current ROM number always lives) in 
line 600. 


Since 3*&15 is &3F, the page &FF address 
to which we divert INSV is &FF3F: lines 
660 to 670 write &FF and &3F into the 
two bytes of INSV, after lines 580 and 590 
have safely tucked away its previous 
contents into two bytes at the end of our 
ROM. Note also that we disable 
interrupts immediately before changing 
the vector, in case an interrupt should 
occur and use the vector with one byte 
changed and the other not. Unlikely, 
unless you believe in Sod's law - but 
show me a programmer who doesn’t. To 
minimise the time spent with interrupts 
off (as you always should), we load up X 
and Y with the necessary numbers before 
the SEI. As long as the actual changing of 
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the vector is done last, there is no need to 
disable interrupts while setting up the 
page &0D addresses - they will be 
meaningless until the vector points into 
page &FE, drawing the MOS's attention 
to them. 


All the above is to ‘arm’ our ROM, as it 
were, to switch it on in response to the 
star-command *DUM (for ‘dump on’; 
lines 510 to 560); after this we balance the 
stack, claim the call (LDA #0) and exit 
(line 740). I have included a little 
confirmatory message as well, otherwise 
it might seem that nothing has actually 
happened after the star-command. In 
fact, once “DUM has been typed and the 
ROM activated, all further key-presses 
will be examined by the routine 
.checkKeys, looking for the ‘@’ key. Now 
ASC '@' is &40, but we're looking for ‘@’ 
with Shift and Ctrl pressed as well. 
Holding down Ctrl subtracts &40 from 
the ASCII codes of the alphabetic keys, 
that's why Ctrl - B sends a 2 to the VDU 
drivers, rather than &42, and so turns the 
printer on. 


So, we're actually looking for a zero (&40 
- &40) in the accumulator at the 
beginning of our routine, line 820. If it's 
not zero we just jump to the address 
originally held in INSV and now stored 
at the end of the ROM. If it is zero, we 
test a system variable at &025A (line 
840). If Ctrl is down, bit 6 of &025A will 
be set (=&40), and if Shift is down, bit 3 
will be set (=8). So, mask off ай but those 
two bits - AND 84:48 - and check that 
both are down - CMP #448. If this test is 
passed we kill the cursor, send our demo 
message, and - as if this were the real 
printer dump - restore INSV to ‘disarm’ 
the ROM. So, when testing, don't forget 
to do *DUM each time, or it won't work. 


If it is a printer dump which you add on 
at line 900, you'll want to leave lines 860- 
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890 in place to send the killCursorBytes 
(lines 1070-1090) to the VDU drivers, 
omitting just the silly message. If not, 
omit the whole brouhaha. There must be 
other uses for a routine which can be 
called from places where a star-command 
can't be sent, using key-presses which are 
not echoed to the screen - from the text 
screen of View, for example. And if you 
don't want the thing deactivated after a 
single call, leave out all of lines 920-960, 
substituting merely: 920 РНА:ЈМР 
(oldVec). 


This month's competition - we can cut 
down by a few bytes on the testing of 
&025A. How? Next month: how a sooty 
flue on a BBC B could put British Rail out 
of action for a week (the wrong sort of 
coal?). 


10 REM Program Ctrl-shift-@ 

20 REM Version B1.0 

30 REM Author Mr Toad 

40 REM BEEBUG Jan/Feb 1994 

50 REM Program subject to copyright 
60 : 
100 index-&BE:indexHi-&BF 
110 i :insVhi-&022B 
120 ‘FFE? :0Ssasci-&FFE3 
130 osbyte-&FFF4 

140: 

150 FOR №=4 TO 6 STEP 2 

160 2%-22%5100"23-5200% (N$-4) 
170 Р%-58000: 
180 | OPT № 
190 : 

200 BRK:BRK:BRK 

210 JMP start 

220 EQUB &82:BQUB offset MOD &100 
230 EQUB &94 

240 .title 

250 EQUS 
-offset 

270 BRK:EQUS "(C) Beebug Jan 1994" 


hur's ROM":BRK:EQUB &1B 


sprint 
STM index 


ТҮ indexHi;LDY ФЕРЕ 
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310 
320 
330 
340 
350 


370 
380 
390 
400 
410 
420 


440 
450 


470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


580 
590 
600 
610 
620 
630 
640 
650 
660 

70 


690 
700 
710 


730 
740 
750 
760 


780 


570: 


Лоор 
INY:LDA (index),Y 
JSR osasci 

CMP #£1B:ENE loop 
RTS 


360 : 


„help 
JSR osnewl 
LDX stitle MOD &100 
ШҮ #title DIV &100 
JSR print 
JSR osnewl 


430: 


ош 
PLY: PLX:PLA:RTS: 


460: 


«Start 
PHA:PHX: PHY 

СИР #9:BEQ help 

СМР #4:BNE out 

LDA (&F2),Y:AND #&DF 
СИР #ASC"D":BNE out 
INY:LDA (&F2),Y:AND #&DF 
CMP #ASC*U":BNE out 
INY:LDA (&F2),Y:AND $&DF 
СМР SASC'M":BNE out 


LDA insVhi:STA oldVecHi 

LDA insVlo:STA oldVec 

LDA &F4 

LDY #checkKeys DIV &100 

LDX #checkKeys MOD &100 

STA &ÜDEO:STY &0DDF:STX &ÜDDE 
LDX &&3F:LDY 8&FF 

SEI 

STY insVhi 

STX insVlo:CLI 


680 : 


LDX son MOD 5100 
ШҮ воп DIV &100 
JSR print 


720 : 


-claimOut 


PLY:PLA:PLA:LDA 80:RTS 


.exit 
на 
оар 


790 JMP (oldVec) 
800 : 
810 .checkKeys 
820 CMP #0:BNE notat 
830 PHA 
840 LDA &025A:AND #648 
850 СМР $&48:BNE exit 
B60 LDX #message MOD &100 
870 LDY $message DIV 5100 
880 JSR print 
890 : 
900 .yourCodeGoesInHere 
910 : 
920 LDX oldVec:LDY oldVecHi 
930 STZ &ÜDEO:STZ &ÜDDF:STZ &ÜDDE 
940 SEI 
950 STX insVlo:STY insVhi 
960 CLI:PLA:JMP (insVlo) 
970 : 
980 .on 
990 EQUW 50000) 
1000 EQUS "ROM is on" 
1010 EQUW &lBÜD 
1020 : 
1030 .message 
1040 EQUW &0000 
1050 EQUS "'Allo, sailor! (008 a cheeky 
boy, then?* 
1060 .killCursorBytes 
1070 EQUW 50117 
1080 EQUD 0:EQUD 0 
1090 EQUB &1B 
1100 : 
1110 .oldvec 
1120 BRK 
1130 .oldVecHi 
1140 : 
1150 | NEXT 
1160 FOR №=7 TO 4 STEP-1 
1170 IF НӨ2Б2А1 NEXT:PRINT'"Sorry - no 
free SRAM slot.":END 
1180 OSCLI “БЕН. "+STR$-Z%+" *4STRS~(O8 
+1)+" 8000 "+5785 № 
1190 25241-82 
1200 PRINT’ "Running in slot ";N& 
1210 N&-4:NEXT:END 
1220 Floreat progranmator, 


1230 sit Beebug semper in lore. B 
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Applications I Dise 
Business GRAPHICS - for producing graphs, charts and diagrams 
ineo CATALOGUER - catalogue and print labels for your video 
cassettes 
PHONE BooK - an on-screen telephone book which can be easily 
edited and updated 
PERSONALISED LETTER-HEADINGS - design a stylish logo for your 
letter heads 
APPOINTMENTS DIARY - a computerised appointments diary 
MAPPING THE BRITISH 18:58 - draw а map of the British Isles at 
any size 
SELECTIVE BREEDING - a superb graphical display of selective 
breeding of insects 
THE EARTH FROM SPACE - draw a picture of the Earth as seen 
from any point in space 
PERSONALISED ADDRESS BOOK - on-screen address and phone book 
PAGE DESIGNER - а page-making package for Epson compatible printers 
Worin Bv Мант AND Day - a display of the world showing night and day for any time and date of the year 


Pile Handling (foc AM 
om the BBC Шйуштъ елей Флоти Агыїзйлъэбъе 
by David Spencer and Mike Williams 


Computers are often used for file handling applications yet this is a subject 
which computer users find difficult when it comes to developing their own 

programs. File Handling for All aims to change that by providing an extensive 

and comprehensive introduction to the writing of file handling programs with 

particular reference to Basic. 

Fle Handling for All. written by highly experienced authors and programmers David 

Spencer and Mike Williams, offers 144 pages of text supported by many useful program 

listings. It is aimed at Basic programmers, beginners and advanced users, and anybody interested in File Handling 
and Databases on the Beeb and the Are. However, all the file handling concepts discussed are relevant to most 
computer systems, making this a suitable Introduction to file handling for ай. 

‘The book starts with an introduction to the basic principles of file handling, and in the following chapters develops 
an in-depth look at the handling of different types of files e.g. serial files, indexed files, direct access files, and 
searching and sorting. A separate chapter is devoted to hierarchical and relational database design, and the book 
concludes with a chapter of practical advice on how best to develop file handling programs. 


‘The topics covered by the book include: 
Card Index Files, Serial Files, File Headers, Disc and Record Buffering, Using Pointers, 
Indexing Files, Searching Techniques, Hashing Functions, Sorting Methods, 

Testing and Debugging. Networking Conflicts, File System Calls. 


The associated disc contains complete working programs based on the routines described in the book and a copy of 
Filer, a full-feature Database program originally published in BEEBUG magazine. 


ASTAAD 


Enhanced ASTAAD CAD program for the 
Master, offering the following features: 


tad wa 


ahs дығын 


* full mouse and joystick control 

ж — built-in printer dump 

Ж speed improvement 

Ж STEAMS image manipulator 

Ж — Keystrips for ASTAAD and STEAMS 

Ж Comprehensive user guide 

Ж Sample picture files 

— 
Stock Code Price 

ASTAAD (80 track DFS) 1407а £595 ASTAAD (357 ADFS) 14080 8595 
Applications П (80 track DFS) * МПа £100 Applications П (3.5 ADFSJ 1412а — £4.00 
Applications I Disc (40/807 DFS) 104a #400 Applications I Dise (3.5 ADFS) 14084: — £4.00 
General Utilities Disc (40/80Т DFS) | 14054 84.00 General Utilities Dise (3.57 ADFS] — 1413a — £4.00 
Arcade Games (40/80 track DFS) PAGla £5.95 Arcade Games |3.5" АЕ) PAG2a #595 
Board Games (40/80 track DFS) PBGla £595 Board Games (3.5 АЕ) PBG2a £595 


All prices include VAT where appropriate. For p&p see Membership page. 


Hatfield Road, St Albans. Hert 


Board Games 


SOLITAIRE - an clegant implementation of this ancient and fascinating 
one-playcr game, and a complete solution for those who are unable to 
find it for themselves. 

Бош, оғ Honour - Score as many points as possible by throwing the 
five dice in this on-screen version of Yahtze, 

Parner very ave version of one of the айм and most || В 

popular games of Patience 

ELEVENsES - another popular version of Patience - lay down cards on 
the table in three by three grid and start turning them over until they 
add up to eleven. 

(CRIMBAGE - an authentic implementation of this very traditional card 
game for two, where the object is to score points for various combinations and sequences of cards. 
Тушиж - a close relative of Sam Цоуй sliding block puzzle and Rubik's cube, where you have to move numbers round а 
arid to match a pattern, 

CEINESE CHEQUERS - a traditional board game for two players, where the object is to move your counters, following а 
pattern, and occupy the opponents field 


‘Aces Hian - another addictive game of Patience. where the object is to remove the cards from the table and finish with the 
‘aces at the head of each column. 


Applications I Dise 


Cnosswon EDITOR - for designing, editing and solving 
crosswords 
Монти Desk Diary -a month-to-view calendar which can also 


be printed 
ort i SD LANDSCAPES - generates three dimensional landscapes 
^o тту 2 REAL Тіме CLocK - a real time digital alarm clock displayed on 
z RE the screen 
[AE RUNNING FOUR TEMPERATURES - calibrates and plots up to four 
Ё temperatures 


JULIA SETS - fascinating extensions of the Mandelbrot set 
FOREIGN LANGUAGE TESTER - forcign character definer and 
language tester 

islon making when buying and selling shares 

LABEL PROCESSOR - for designing and printing labels on Epson compatible printers 


Arcade Games 


GEORGE AND THE DRAGON - Rescue ‘Hideous Hilda’ from the flames 
of the dragon, but beware the flying arrows and the moving holes on 
the floor 

EBONY CASTLE - You, the leader of a secret band, have been 
captured and thrown in the dungeons of the infamous Ebony Castle 
Can you escape back to the countryside. fighting off the deadly 
spiders on the way and collecting the keys necessary to unlock the en 
coloured doors? E mun 
Кэпонт Quest - You arc a Knight on a quest to find the lost crown, 
hidden deep їп the ruins of a weird castle inhabited by dangerous. 
monsters and protected by a greedy guardian, 

PiTPALL Pere - Collect ай the diamonds on the sereen, but try not to 
trap yourself when you dislodge the many boulders on your way. 
BuntpgR Вов - Bob is trapped on the bottom of building that’s being demolished. Can you help him build his way out? 
MINEFIELD - Find your way through this grid and try to defuse the mines before they explode, but beware the monsters 
which increasingly hinder your progress 

Manic MECHANIC - Try to collect ай the spanners and reach the broken-down generator, before the factory freezes up. 


Quap - You will have hours of entertainment trying to get all these different shapes to fit 
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Stock Code Price Stock Code Price 
File Handling for All Book BKO2b £9.95 
File Handling for АП Disc (40/80Т DFS) ВКОба — £4.75 File Handling for АЙ Disc (3.5°ADFS) BK07a — £4.75 
Joint Offer book and disc (40/80T DFS) BK04b £11.95 Joint Offer book and disc (3.5"ADFS) ВКОбЬ 81195 
Magscan (40 DFS) 0000 — £995 Magscan Upgrade (40 DFS) 001а £475 
Magscan [80T DFS) 00000 | £995 Magscan Upgrade (80Т DFS) 0004 £475 
Magscan (2.5" ADFS) 1457а £995 Magscan Upgrade (3.57 ADFS) 1458а £475 


All prices include VAT where appropriate. For p&p see Membership page. 


Те! (0727) 840303 Fax (0727) 860263 


5121 + 


This month the 
Forum is a bit 
of a mixed bag, 
but I hope 
there’s a bit to interest everyone and 
perhaps a timely reminder to anyone 
who hasn't given sufficient thought to 
what happens after April. We'll start 
with a point raised by a reader in 
response to my articles on PKZIP. 


© 
А 


FINAL PKZIP POINTS 

Thanks to Philip Draper (why is it 
always the same people?) for dropping 
me a line saying how much he'd enjoyed 
the PKZIP articles and that he'd learned 
à bit more about the program as well. 
Thanks too for reminding me about one 
quite important point about PKZIP 
which, frankly, I'd forgotten to mention. 
My excuse is that I use a hard disc and, 
naturally enough, lack of free disc space 
is rarely an issue. However, if you're 
restricted to floppies there's a point 
which you must bear in mind and which 
I completely failed to warn you about. 


When PKZIP is compressing data it 
creates a temporary file which it uses as 
virtual memory, unless the total amount 
of data is very small so both the input 
and output fit into RAM. Obviously the 
quantity of output data is usually much 
less than the input, or there wouldn’t be 
much point in the exercise, but equally 
the two together will often exceed the 
amount of free RAM in the machine, 
even in an expanded 512. 

For example, if an 800K disc contains, 
say, 700K which compresses to 250K, 
added to the space for PKZIP plus 
sundry workspace the total’s about a 
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megabyte. This clearly won't fit into 
RAM and the source floppy doesn't have 
enough free space either, so unless you 
tell PKZIP how to handle the problem 
the job can't succeed and you'll get a 
'disc full' message. Mind you, at least 
PKZIP does tidy up after such an event, 
but that sometimes adds to the confusion 
because you can't actually see what 
happened after the evidence has been 
cleared away. 


By default PKZIP creates its temporary 
file on the current drive, so if in the 
above case the current drive contains too 
much source data there's no chance. 
However, if the current drive is the 
(empty) destination drive, or you tell 
PKZIP to put the temporary file on the 
destination disc everything will be fine. 
It's quite easy and it can be done in two 
ways. The most obvious way is another 
command line directive, although in this 
case the letter used, "-b", isn't as obvious 
ав other PKZIP options. Just add the '-b' 
option plus the temporary file's drive ID 
to the command like this: 

PKZIP -a -bb: <archive-name> 
which would tell PKZIP to use drive B: 
for its temporary file, assuming you're 
zipping from A:. Alternatively, you can 
permanently set the option as an 
environment variable, say in your 
autoexec.bat or in the security job itself, 
by the command: SET РКТМР-С: 
although this option is likely to be more 
useful with a hard disc. 


MAKING PLANS 

To many of you the rest of the Forum 
will be will known, but in my experience 
a fair number are always caught napping 
when anything changes. Also, to be fair, 
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there may be a few readers who've 
purchased second-hand machinery 
recently and who therefore haven't had 
the benefit of year's of BEEBUG 
magazine to learn about everything 
useful. It should by now be no secret that 
BEEBUG will cease publication after a 
couple more issues, in April. 


Although it's sad for those of us who still 
enjoy our old machines, whether 512 or 
6502, we must be realistic and face the 
fact that technology moves ever onward 
and in truth the old machine is now 
something of a dinosaur, no matter how 
useful you still find it and how much 
dinosaurs are in fashion at the moment. 
All credit to BEEBUG for continuing 
support so long after all others lost 
interest I say, but inevitably all good 
things come to an end. 


No doubt a good many of you intend to 
continue to use your old faithful machine 
for some time yet. Why not? I for one 
certainly do. In fact ГИ probably use 
mine until it breaks down and I can't get 
the bits to fix it, although the writing's 
already on the wall because many chips 
which are now out of production are 
already difficult to get hold of and some 
just aren't available at all. A bit of advice! 
DO NOT blow up your Tube ULA!!! 


I don't know if you've considered all the 
implications of being ‘alone’ with your 
machine, but now's the time if you 
haven't done so before. Even forgetting 
potential hardware problems, there will 
no longer be any automatic regular 
source of information, hints, help, 
software or news. If you don't already 
belong to a computer club or user group 
and don't do something about it soon 
you'll be entirely cut off from all other 
BBC micro users after April. Likewise, 
those few people who can still supply 


software for the BBC or 512 will be cut 
off from you too, so don't leave it any 
longer to take steps to minimise this. 


One excellent source of hundreds if not 
thousands of programs is Alan Blundell's 
BBC PD. I've mentioned BBC PD before 
and make no apology for doing it again. I 
have no connection with it and while 
modesty or good taste might prevent 
Alan from advertising his services too 
blatantly I suffer no such misgivings. For 
the committed BBC or 512 user there is a 
range of software in BBC PD's catalogue 
that would take you months to wade 
through and evaluate. An extra benefit is 
that costs are minimal. There's no excuse 
for being bored or dissatisfied with old 
software just because BEEBUG magazine 
is no longer published. Contact BBC PD 
now if you haven't done so before and 
help Alan to continue his sterling work. 
Of course you could be complacent and 
leave it a year or so before you do it, then 
you might find he's been forced to close 
down too owing to lack of support. If 
you're guilty don't say you weren't 
warned! 


OTHER SOFTWARE 

On.a similar note Essential Software, run 
by yours truly, has been operating for 
several years now, since 1989 in fact, but 
still not everyone knows about it. I’ve not 
previously shouted about it in this 
column too much, but in fact even when 
regular reviews of 512 products or 
software were being published in 
BEEBUG some readers managed to miss 
them, even when they were on the page 
adjacent to 512 Forum! With only three 
issues to go, in addition to BBC PD I'm 
going to make sure everyone knows 
about Essential Software before it’s too 
late. If Mike Williams disapproves 
perhaps I'll get sacked from writing 512 
Forum, but I'll just have to take that risk. 
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There follows a brief outline of ES’s 512 
software range. You will see that prices 
have been reduced by about 50% as a final 
gesture to Forum readers from me 
(original price in brackets). If there's 
anything you want, now is the time to get 
it. This isn't (quite) a closing-down offer 
50 there's no time limit on the offers as 
such and РИ supply everything, as well as 
still answering letters, as long as I can, but 
in purely practical terms I can't keep 
adequate stocks of EPROMS and floppy 
discs for ever and neither is it realistic to 
buy them in ones and twos ‘ad hoc’. 
Inevitably at some point I'll have to call a 
halt, so this time next year could be too 
late. Memory use is shown only for 
programs that use 512 RAM, otherwise 
it’s zero. All cheques payable to me 
please, and overseas orders add £1.00 to 
EPROM prices. If you need more info. 
please send an S.A.E. I also have the latest 
(and definitely final) update to PCCE and 
TXTMOUSE from David Harper, making 
both programs probably as near perfect as 
is possible in the 512 - yours for £1 with 
any ES order, or £2 on their own as before. 


ыы HE IST m 


RAMDISC (£16.95) £9.95 

Allows a 512 ramdisc to be configured as 
any size from 10K upwards and as any 
drive. Includes AMNESIA, allowing 
deletion of the ramdisc without re-boot, 
and DISCID which allows switching of 
drive IDs plus suspension of any drive so it 
can't be accessed (and reinstatement!) 


INTERCOM (£12.95) £6.95. 

A command line editor with history recall. 
Commands can be recalled manually or by 
automated matching against a (wildcarded) 
search pattern. Word Processor like editing 
during command entry. Configurable, 
memory resident, with 1k buffer uses 2.7K 
of RAM. 


PFKEYS (£7.95) £4.95 
Allows up to 30 user defined commands to 
be assigned to Shift/Ctrl/Alt function 
keys, so commands can be executed by a 
single key-press. Command can be saved to 
disc, re-loaded or amended as required. 
Configurable, memory resident, uses 3K of 
RAM. 


HDSETUP (£10.95) £5.95 

Partitions a winchester for any DOS 
partition from 1 to 32Mb. in 1Mb. steps, 
plus optimised directory sizing for smaller 
partitions. 


SUPRSTAR (£14.95) £7.95 

Gives an independent, true mode 7 screen 
for star commands, activated by hot-keys. 
Star commands issued previously are 
retained and the DOS screen plus the 
application or activity are preserved too. 
In SUPRSTAR normal BBC micro facilities 
include full BBC cursor editing, proper 
Escape processing, programmable 
function keys and correct MOS error 
handling. 


СОВВС/512 (£14.95) £7.95 

With SUPRSTAR £14.00 the pair. 

Allows you to 'drop into' a completely 
normal BBC environment from the 512 and 
run any BBC task, then return to DOS 
where you left it. (NB. You must have 
SUPRSTAR for this.) 


PRNTSCRN (£14.95) £7.95 
Prints any DOS display (graphics text or 
both). Two programs, GRDUMP and 
PRTSCRN, both actioned by hot-keys hence 
can be used at any time. Configurable for 9 
or 24 pin printers, using Epson commands, 
full IBM graphics support. Can also print 
SUPRSTAR screens. 


CLMOUSE (£12.95) £6.95 
Provides mouse cursor control for 
programs which don't normally use a 
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mouse. Mouse buttons can be configured to 
generate any key press (defaults Return 
and Escape) and sensitivity can be adjusted 
as required. Settings can be saved to or 
loaded from disc. Trackerball compatible, 
application independent. 


SCRNSAVE (£9.95) £5.95 
Allows the DOS display to be saved 
directly to either BBC filing system. Filing 
system, drive and filename are all user 
definable. Triggered by hot-keys, so any 
display can be saved including those from 
within applications. 


TRNSLATE (£14.95) £7.95 

Allows any (PC or BBC) keypress to be 
generated by any key on any model of BBC 
micro. Includes numeric keypad for model 
B/B+, plus otherwise unavailable PC keys 
on all models, eg. right-shift, scroll-lock. 
Definitions can be saved to/loaded from 
disc and can include Shift and/or Ctrl 
modifiers. 


MEMOPAD (£9.95) £5.95 

A ‘pop-up’ notepad providing 10K bytes (4 
A4 pages of text) of instant, independent 
note-taking storage. Contents of the pad 
can be saved to or loaded from disc, cleared 
or printed. Access by hot-keys, uses one 
BBC sideways RAM slot. Configurable for 
all sideways RAM types. 


MISCELLANEOUS I (£11.95) £6.50 
Includes: 


Select - a batch file menu driver 
providing the missing link between the 
user and batch files, allowing on-line 
selection of options in batch files. 


Colordef - allows screen colours to be 
changed on hot-keys instantly. Change 
foreground or background colours 
whenever you like without access to the 
command line 


Suspend - pauses the 512. Suspend and 
resume are on hot-keys, stop the 
machine any time. 


Lock - locks the machine from the 
command line with a user-entered 
password. The password is needed 
again to release the system, when LOCK 
reports if illegal access was attempted. 
Proof against all but Break. 


Sound - allows full access to the BBC 
micro’s sound facilities from DOS, 
parameters exactly as BBC Basic. 


Envelope - allows sound envelopes to 
be defined in DOS, exactly as BBC Basic. 


MISCELLANEOUS II (£14.95) £7.95 
Includes: 


Keyclick - adds ‘key clicks’, like a PC. 
Clicks can be loud, quiet and switched 
on or off as required. 


Oscli - * commands direct from DOS 
without clearing the screen. Much 
smaller and faster than STAR, plus no 
screen disruption, especially useful in 
batch files. 


Cursor - allows changes to the size/ 
flash-rate of the DOS cursor on hot- 
keys. Scrnpres - blanks the display if 
the machine isn’t used for a (user- 
defined) period preventing screen 
‘burn-in’. The display is reinstated by 
any key press. 


List - is a cursor controlled, bi- 
directional scrolling text lister. Includes 
line-up/down, page-up/down, 
start/end of file, go-to line, ASCII filter, 
tab expansion, auto browse etc. A much 
more flexible replacement for ‘TYPE’. 


Lockword - like SUSPEND, but needs a 
(user-defined) password to release 512. 
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Alan Blundell looks at two professional-quality new releases into the 
world of PD. 


I have a couple of new items of PD 
software to report again this issue, both 
of which are of very high quality. I keep 
thinking that there must be an end to the 
new software which keeps appearing, 
especially as the circle of Beeb 
programmers shrinks, but these gems 
just seem to keep appearing. 


ADDOS 

ADDOS is the name given to a modified 
version of Acorn's own 1770 Disc Filing 
System (DFS) which has been produced 
(by modifying the original Acorn 
product) by Andrew J Donald. The DOS 
part of the name (I suspect) comes from 
the Disc Operating System (DOS) used 
on PC type computers, but the AD part 
is more obvious. 


The original Acorn DFS was designed 
around a disc controller chip called the 
8271, which worked in single density disc 
formats only. When Acorn introduced the 
Master series, it took the opportunity to 
change to using a 1770 disc controller 
chip, which is capable of double density 
operations as well as single density. 
Single density and double density, for 
those who are unfamiliar with these 
terms, are basically two different ways of 
recording the magnetic data on a disc 
surface. Fairly obviously from the names, 
double density recording fits more data 
onto a disc than single density, but the 
name is nevertheless a little misleading - 
you don't get twice as much data on a 
double density disc, more like 1.6 times 
the amount available in single density 
mode. This meant that the DFS had to be 
rewritten to work with the new chip, 
resulting in the Acórn 1770 DFS. This 
DFS worked just like the original (8271) 
DFS, in that it worked in single density 
only. Double density disc recording was 
left for the ADFS ROM, but other 


software suppliers took the opportunity 
to introduce double density DFS systems. 


These never achieved very widespread 
use because there was no guarantee that 
someone you might send a disc to could 
use double density DFS discs. Andrew | 
Donald saw the potential benefits of 
having a double density DFS and, rather 
than simply buying a non-Acorn 
alternative, set to work on Acorn's own 
1770 DFS. He very cleverly succeeded in 
modifying it to work in double density 
rather than single density, and has 
managed to persuade Acorn to allow 
him to distribute the resulting ROM 
image via the public domain. He kindly 
sent me a copy of the ROM image, which 
I have tried out on a Master 128 and 
have found it to work fine. 


Andrew has included a short text file 
with the ROM image which gives a few 
pointers on the use of the new double- 
density DFS, but has also written an 
article giving more details, including a 
description of how he made the 
conversion work. The article will be 
published in a magazine for Beeb 
enthusiasts called ByleBack. 


ByteBack is a newish А5 format 
magazine for BBC users and enthusiasts, 
run by Paul Harvey and produced 
roughly once a month. It costs £1.00 рег 
copy and is available from 33 King 
Henry's Mews, Enfield Lock, Middlesex 
ENS 6JS, should you wish to get in touch 
to find out more about ADDOS. 
ByteBack is in some ways similar to early 
issues of BEEBUG in that it includes 
hints and tips for beginners as well as 
more advanced material, and general 
discussion articles (in relation to the 
subject matter of this column it also 
includes a PD software reviews section, 
so it isn't entirely out of context here). 
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SIDEWAYS PRINTING 

The second new program which I have to 
report on this issue is the latest from 
David Harper, whose name should be 
familiar to regular readers. David has 
this time come up with a program for the 
6502 side of a Master (or Model “ВЭ, 
rather than the Master 512 co-processor 
for which he has been very prolific in the 
past. This program, a sideways printing 
utility, is up to his usual high standard 
and is very professionally presented. 


The Sideways Printer is a program which 
allows text to be output “sideways” on a 
dot-matrix printer. In other words, text is 
printed in “landscape” format (rather 
than the usual “portrait” format), and is 
thus rotated by 90 degrees from the way 
it normally appears. 


To use the program you need a 24-pin (or 
48-pin) Epson-compatible dot matrix 
printer and a BBC Model B with OS 
Version 1.20, Model B+ or Master having 
at least one free bank of sideways RAM. 


Apart from a couple of star commands to 
turn it on and off, the Sideways Printer is 
totally transparent to the user and to the 
system. This means it can be used with 
any word processor, or indeed with any 
other program (such as a spreadsheet) 
which outputs text to the printer. It is 
fully Tube compatible, and even works 
well on the Master 512. 


The Sideways Printer can only be used for 
text output. It will not cope with pictures, 
diagrams, etc. which are output in dot 
graphics mode. To use it you must first 
load the ROM image file into a bank of 
sideways RAM. On the Master ог В+128 
you do this with a command such as: 
*SRLOAD SIDEPRT 8000 «n» 

where «n» is the number of the sideways 
RAM bank you wish to use. You then 
need to initialize the program. Some 
versions of the Operating System (on the 
Compact and later versions of the Master 
128) allow you to do this as you load by 


adding an "I" to the end of the "SRLOAD 
command. Otherwise, the approved way 
is to press Ctrl-Break (in fact, you can 
also initialize the program by writing the 
value 882 to memory location 
&2А1+<п>, where «n» is again the 
number of the sideways RAM bank). 


Note that this program must be run in 
sideways RAM. It will not work if you 
blow it into an EPROM. Some versions of 
sideways RAM sold for the Model B are 
designed to "look like" ROM. The 
Sideways Printer will not work with one 
of these. 


For the sake of compatibility, the 
Sideways Printer has been designed to 
respond to the same sequences as an 
Epson printer normally does. Thus, for 
example, sending to the printer the two 
ASCII characters 27,52 (ESC,"4") starts 
printing in italics, whether the Sideways 
Printer is on or off. Most word processors 
have their own method of issuing control 
sequences to the printer, of course. 


There are limitations, and the most 
severe one is that all sideways output 
occurs at 12 characters per inch (apart 
from doubling the character width). A 
number of printer effects have been 
implemented, however. The ones that 
work include bold, italics, underline, 
double-width and  double-height 
characters, as well as various line 
spacings. 


SOFTWARE SOURCES 

Next issue, I promise that I will give 
some information about sources of PD 
software. This has been promised for a 
couple of issues now, but I am still 
checking which libraries and user groups 
are still active. If you run one or other 
such source of PD, please let me know as 
soon as possible so that I can make the 
information as complete as possible. As 
usual, my address is 18 Carlton Close, 
Blackrod, Bolton BL6 5DL. 8 
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Tim Parsons assesses a recent product for BBC micro users, Inter-Mail, 


а letter/correspondence manager for use with Computer Concepts’ 
Inter-Base and Inter-Word. 


At the outset I must stress that to use 
Inter-Mail you must have ADFS, shadow 
RAM, Inter-Word and Inter-Base (IB), 
together with a spare ROM socket or other 
sideways RAM for the Inter-Mail ROM 
image. 


I purchased Computer Concepts Inter- 
Word a long time ago. When I upgraded 
to ADFS I used a directory for each 
correspondent, which worked quite well. 
I then purchased Inter-Base. Looking 
around for ready made Inter-Base 
programs I discovered Inter-Mail written 
by Martin Pickering, who has also written 
а very good book on the Inter-Base 
Programming Language. Among other 
things this explains very clearly how 
Inter-Base programs can communicate 
with Inter-Word, and for any serious 
users of Inter-Base it is a must. 


Inter-Mail brings Inter-Word and Inter- 
Base together quite conclusively; all you 
have to do when initialising is to enter 
your name, address and phone number, 
and then, when required, enter the 
names and addresses of people you may 
wish to write to (there is also space for 
phone numbers, birthdays, reminders 
and any other relevant information). This 
will automatically result in an "IB. Card 
Index" Database called Names which is 


indexed on the surname (and an index 
number). More names and addresses can 
be added at anytime. 


From the Inter-Mail menu (Inter-Word 
lookalike, of course), you have nine 
options from which to choose. To start a 
letter you simply GET the address from 
the Names Card Index and enter Inter- 
word (all automatically). The reference 
number is placed in the top left-hand 
corner, your name and address is placed 
in the top right-hand corner with today's 
date below it. The recipients address is 
placed just below that and to the left, in 
bold (in the correct place for window 
envelopes). Inter-Mail is quite intelligent 
in its choice of Dear Sir/Madam or 
Christian name, and you are then ready 
to start your prose, assisted I trust by 
SpellMaster. 


When finished, or even before you finish 
your current letter, it is then a very simple 
matter to return to the Inter-Mail menu by 
pressing FO (this is most important) to 
save the letter with its reference number 
as the filename. This will then 
automatically create another “IB, Card 
Index” database called LETLIST which is 
indexed on the reference number. An 
optional comment can also be included. 
From the Inter-Mail menu you can if you 
wish GET any other address, which can 
be put into your current letter at the 
cursor position, or print out the current 
letter or even start a new letter with a 
different name and address. 


While using Inter-Mail you also have full 
access to either the LETLIST or NAMES 
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Inter-Mail 


INTER-MAIL 


199 


14th М 
ESC IN 
<16» To 


Please enter choice 


ike Williams 


The Inter-Mail menu 


card index allowing you to make any 
alterations or additions you wish as you 
go. This is also possible with Inter-Base 
alone, but don’t alter the index numbers. 


It is also possible, and indeed recommend- 
ed, to alter the options to suit contained 
in the !BOOT file. This contains a lot of 
the start-up settings such as Pre and Post 
Print, which are all automatically sent to 
Inter-word when starting a new letter. 


THE MENU OPTIONS AVAILABLE 


1. Save letter on disc 
This is the same as the Inter-word menu 
option 1 


2. Find old letter on disc 

This enables you to interrogate the LETLIST 
card index by entering the reference number 
(if known). It is possible to scroll through the 
whole list, but this is terribly slow. It would 
be better/quicker, to be able search for a 
surname, but this is not implemented 

3. Find address 

This enables you to interrogate the NAMES 
card index, either by surname or by an index 
number. If not found correctly the first time, 
it is an easy matter to look at the neighbouring 
"cards" with the Ctrl and cursor up and 


down keys. When the address is found there 
are many options available: (G)et addr, 
(L)etter, (A)dd, (E)dit, (P)rint, (F)ind, 
(D)elete, (ESC) menu. 


4, Enter new address 

With this option you can enter new addresses 
with as much additional information as you 
wish, such as birthdays etc., or just general 
reminders. 


5. Change options 
This enables the !Boot file to be altered, 
which will not (of course) come into effect 
until the disc is next booted 


6. Print letter 
This performs the same as the Inter-word 
menu option 6. 


7. Start new letter 

This starts a new letter with the curren! 
addressee automatically placed in position for 
a window envelope 


8. Start Mailshot 

This is the Mail Shot facility, which will print 
out letters to all the people with certain 
characters entered into the CATEGORY field 
of the NAMES card index. 


9. Uti ies 

This is a built in "feature" (not a bug) which 
provides "hooks" into IB programs written 
by yourself! There is ал excellent example 
supplied, a ROM image called /Цгот, which 
in itself shows what can be done! 


You may have noticed that I have found it 
very difficult to find fault with Inter-Mail; 
even the manual is beyond reproach. If 
you have the right equipment, Inter-Mail 
will make full use of it, although if you are 
using a floppy disc (I have been using a 
hard disc) you will probably find you 
eventually get the disc full message. 


For prospective IB programmers there is 
plenty of scope for further expansion, 
which is where Martin’s excellent book 
would come in handy. E 
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M-Base (Part 3) 
Jan Palmer rounds off his database. 


This is final section of the M-Base 
program. Other than the search 
described before in the viewing records 
section, there are three more searches, 
each initiated via option 8 of the main 
menu. This option leads to a further 
menu with four options, the fourth being 
return to main menu 


The first option is the global search. This is 
similar to the search described before, only 
it searches all fields, not just the first one. 
Press f0 to move through records found 


Complex search is a case sensitive search 
which allows you to specify which field 
to search, and you can even have more 
than one search string. When selecting 
this search you are presented with a 
blank record entry. Place the search 
strings in the fields required. When you 
have entered them all the search will 
commence. By default only records 
containing all the search strings will be 
displayed. By changing the state of the 
‘Complex Search’ flag (option 9) to ‘any’ 
records which contain any of the search 
strings will be displayed. Records can be 
altered whilst they are displayed 


The final search is the ‘Closeness search’ 
and this requires a more detailed 
description as it is a very powerful 
search with unusual qualities. First of all 
it is important to point out that this 
search does not search for specific 
strings, in fact it can sometimes find 
records which apparently have nothing 
to do with what you are looking for, 
apparently being the operative word. 


Like the complex search it allows more 
than one search string to be typed in. In 
fact the strings (or targets) are entered in 
exactly the same way as in the complex 
search. I will use the word ‘target’, 
instead of ‘string’, from now on because 
of the way the search works. 


There are two types of data the search 
can handle. The first is numerical data, 
ideally percentages, e.g. 100, 54 etc. Only 
whole numbers will work properly, and 
the best results are produced if all fields 
carry the same weight 


idevays RAN 


The M-Base status display 


An example of a database which might 
use this type of data is a computer games 
database, where ratings are given for 
features like adventure, action, speed, 
thought required, where each game has a 
value for each category related to how 
much of that feature is present in that 
game. 


Thus, with this search, you could give 
your ideal ratings for a game you wish to 
play, and M-Base would then produce a 
list of the closest games to your ideal. 
The list starts with the closest and as it 
progresses the games get further from 
your ideal. The length of the list depends 
upon the value of the ‘Closeness list’ 
flag, default 15, but can be anything from 
3 to 50. 


It is possible to be vague about any 
targets given. If, for example, you don’t 
mind about the exact value, but you 
want it to be above, say, 50 then placing 
‘50>’ as the target will allow this 
consideration. Similarly ‘50<’ allows the 
search to find those of less than 50. 
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M-Base 


M-Base - entering a new record 


cause each target carries the same 
weight, when you have more than one 
target you may notice individual fields 
fluctuating quite a lot. For example if you 
had one of your targets as ‘50<’ you may 
start off with values below 50 for that 
field, then some above 50, then some 
below again. This is due to the fact that 
overall the records with values over 50 in 
that field were closer than some that had 
values lower than 50 


The second type of comparison which is 
possible in the closeness search is word 
analysis. With this comparison the target 
is broken down into single words and 
those words are searched for, so word 
order is not important, i.e. ‘Three two 
one’ is the same as ‘One two three’ 
Also, if only some of the words are 
found, that record will be higher in the 
final list than those that have none of 
the words in it, but lower than any with 
all the words in it. But this is not all that 
is done. The target words are further 
broken down into word structures, and 
these too are used in the comparisons, 
so words with the same ‘build’ are 
searched for. i.e. ‘Three’ is the same as 
‘Free’, ‘Touched’ is the same as 
"Touchwood', etc. 


You can mix the two types of 
comparison, i.e. numerical and word 
build. Although, as stated before, the best 
results are obtained when the numerical 
data is in the form of percentages. 


M-BASE ON A BEEB 

This program, with minor alterations, 
can be used on computers other than the 
Master range. First of all lines 1010 to 
1040 need to be deleted, as do lines 1160 
to 1190. 


Then the value of DC% in line 1240 needs 
to be changed to TRUE, to make M-Base 
start up in disc mode. Also the ‘ON О% 
PROCview , ....” in line 2130 needs to be 
changed to a sequence of lines of the 
form : IF O%=1 PROCview : ELSE IF 
О%=2 PROCadd : ELSE etc. 


To reduce the size of the program, lines 
which are specific to sideways RAM use 
can be removed, for example : lines 1790, 
1800, 3330, etc. The only problem with 
running M-Base on other computers is 
memory. For this reason you need to 
lower page to a level which will allow 
access to disc, whilst giving enough 
memory for the program to operate. 
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.M-Base 


4880 PRINTTAB(0,22) ; SEC (80) ; :PROCEitle( 
"Searching*,22):FOR 5%-1 TO N&:PROCread( 
8%) 

4890 fš=NOT(cS%) 

4900 FOR A$-1 TO Р%:1Р INSTR(TS(A$) ,55( 
АЗ) )=0 AND NOT CS%W fš=FALSE:A%=F%$ 

4910 IF INSTR(TS(A3),S$(A$)) AND CS% AN 
D 5$(А%)<>"" £8=TRUE:AS=F3 

4920 NEXT: IF f% PROCalter(s) : PRINTTAB( 
0,22) ;SPC(80) ; ;PROCtitle( "Searching", 22) 

4930 NEXT 

4940 PROCclear:ENDPROC 

4950 : 

4960 DEF PROCglobal 
4970 PROCclear:PROCtitle('Global Search 
*,1):PROCtitle(*M-Base",22) 

4980 S$=FNinput ("Search string : 
4, 20,32, 126) : PRINTTAB(0, 22) ;SPC(80) ; 
OCt itle(*Searching",22) 

4990 S$-FNlow(S$):FOR а8-1 TO МЁ:РЕОСге 
ад(аз) 

5000 FOR B8=1 TO Fi:TS-FNlow(TS(BÀ)) 
5010 IF INSTR(TS,S$) PROCalter(at):Bé-F 
:PRINTTAB(O, 22) ;SPC(80) ; :PROCtitle(*Sea 
rching",22) 

5020. NEXT: NEXT: ENDPROC 
5030 : 

5040 DEF PROCclose 
5050 LOCAL G8, T8, 58, f$: PRINTTAB(0,22) ;S 
PC(80) ; :PROCtitle("Searching*,22) 

5060 FOR G&-1 TO Р%:1Р 55(0%)<>"" AND V 
AL(S$(G8))=0 AND 55(0%)<>"0" L$(GB)=FNle 
x(S$(G8)) :S$ (GB) =FNlow(S$ (G8) ) ELSE 15(6 
ge" 

5070 NEXT 
5080 G&-0:FOR 5%-1 TO N&:PROCread(st) 
5090 T$-0:FOR Е%-1 TO FE 
5100 IF(VAL(S$(£%))<>0 OR S$(f8)-*0*)AN 
D INSTR(SS(£8), "«*)-0 AND INSTR(SS(f9), * 
2*)20 TB=TB+ABS (VAL (SS (f$) ) -VAL(TS (£8) 
5110 IF INSTR(SS(f$), "<") AND VAL(SS(f$ 
J)«VAL(T$(£8)) T$=T$+ABS (VAL (S$ (f$) ) -VAL 
(T$(£8))) 

5120 IF INSTRISS(£),*»") AND VAL(S$(£% 
) )>VAL(TS$(£8)) T&-TR«ABS (VAL(SS (£$) ) VAL 
(Т$(%))) 

5130 IF LS (f$) «»** Т%=ТЗ+ЕНБитту (S$ (£8) 
,TS(ES) LS (Е) ) 

5140 МЕХТ:ІР 08-0 63-1:08(1)-58:18(1)-Т 
$:ELSE PROCins 
5150 NEXT:FOR 58-1 TO Gi:PROCalter(C&(s 


0 
:PR 


3) ) : NEXT: ENDPROC 

5160 : 

5170 DEF PROCins 

5180 IF Т%>Т%(0%) AND G&-MG$ ENDPROC 

5190 IF 7%>7%(0%) 08-0841:18(08)-18:08( 
16%) -s$ : ENDPROC 
5200 LOCAL QS, Wi, x 
5210 Q$-:REPENT:Q8-Q$«1:UNTIL TicTé (0% 
) OR 08-08:1Е 08-23 13(08)-18:08(08)-5 
$:ENDPROC 

5220 FOR WS=MG8-1 TO 08 STEP-1:C%(W%+1) 
=C8 (WS) :T8 (1881) 2T (WR) : NEXT: IF 6%‹М% G 
оі 
5230 78(08)-18:08(08)-58:БМОРВОС 
5240 : 

5250 DEF FNlex(I$) :LOCAL 08, AS, BS, 38, Bè 
E 
5260 IS-FNlow(I$):i$-I$:0$-'":FORAS-l T 
0 LEN(I$) :U8=TRUE 
5270 А$=М10$ (1$, А, 1) :BS=MID$(I$,A%+1,1 
):IF INSTR("aeiouy", AS) U$=FALSE:IF RIGH 
1$(0$,1)<>"** 0$=0$+^** 

5280 IF (BS="h* AND (AS="g* OR A$="p" O 
*)) OR A$-"f* US=FALSE:0$=0$+"@": 
h" 48-4841 
* AND RIGHTS (0$,1)<>*** O$ 
ALSE 
* OR A$-"s* O$-0$+"s" ПАР 


5310 IF AS-RIGHTS(OS,l) U%=FALSE 

5320 IF U$ AND INSTR(*djkcgtfphw',AS) U 
S-FALSE:IF RIGHTS (O$,1)<>"@" O$=0$+"@" 
5330 IF U% AND INSTR(*mn*,A$) O$=0$+"*" 
:U&-FALSE 

5340 IF U% 0$=0$+A$ 

5350 МЕХТ:-05 

5360 : 

5370 DEF FNfuzzy (A$, T5, L5) :LOCAL р%,ррё 
‹Р%,В$,А%,В% 

5380 B$=FNlex (T$) :р%-0:рр%-0 

5390 А%=0:В%=0:КЕРЕАТ:В%=В%+2:Р%=р%:1Р. 
INSTR(BS,FNgetword(L$)) A$=A%+1 

5400 р%=Р%:Р%=рр%:1Р INSTR(iS,FNgetword 
(А$)) А%=А%+1 

5410 ррь-РЕ:ЛТП, P&>=LEN(A$) :=75- (A$/B 
3575) 

5420 : 

5430 DEF FNgetword(I$) :LOCAL 05,35 

5440 REPEAT: P$=P$+1:A$=MID$(I$, P$, 1) :IF 
А$<>* “ 0$=0$+А$ 


| 5450 UNTIL AS=" * OR Pi»-LEN(I$):-0$ @ 
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Wordwise User’s Notebook: 
Multiplying the Mail 


by Colin Robertson 


One of the commonest chores that word the name and address of the recipient, 
processors get called upon to perform is but with the keyword &Address (you сап 
the production of mailshots or multiple of course change this to anything that 
copies of a standard letter to be sent to takes your fancy) at the position where 
different addresses; the letters differing à name/address is intended to go. This 
only in the intended recipients name, letter should then be saved in a file for 


address, and salutation (e.g. Dear Aunt later use when running the utility. The 
Mabel). 

і і The Very Small Mammal Society, 
This process is usually referred toas. prong oot 1-112288 23 Smogion Vale Crescent 
mail-merging; the facility to do it Hemelworth New Town, 


Hertingtordshire, 
HHI 4HH, 


20th April 1993. 


being a standard feature of many 
proprietary text processing packages. 
Unfortunately, only a crude 
suggestion of a segment program, for 
such a process, comes as standard 
with Wordwise Plus (WW+). 


1993 VOLE APPEAL. 


Dear 


Many thanks for your contribution to our 1993 special appeal 
| Although the amount raised, has уо! to be worked out, it does 
Тһе WW+ utility described here || appear that we wil reach, И not pass, our target figure 

ims to ici Аз you are aware, tho Socioty is ongaged in an extonsive 
ямаан correct that дейпепсухалд, | iN а E ET DN 
is one I've used a lot; I find it takes || this year will enable us to provide better vocational training for 
ite a bi i volos, an area which has suffored severely from lack of funds 
quite a bit of the strain out of following last year's cutbacks in Goverment spending. Funds 


writing begging letters to multi- || permitting, we hope to get our VTS (Vole Training Schemo) back 
millionaires and football pools || 9 course арал by the carly part ot next yaar 
winners! Datos for your diary. 
Juns- Аа! cheese suppor & disco. 

7 All rats must bo accompanied 
But no doubt you'll have your own ee 
ideas about using it: pleas for help Jun 10- Mouse club 
with the local Scout, Guide or Jun 17- Friends of the Gerbil 
Brownie pack for instance, (At Kevin's house) 


subscription reminders for a club or р the БЕН Eee of our. эон» 
soci к hristmas period, and wil send you a copy as soon as | сап 
society, or maybe letters to be sent || oai Норомду, tne mice haven't been atit in the meantime, | 


to members of the local Beeb user || 100k forward to seeing you at our next meeting. 

group. Whatever your particular Yours sincerely, 
interest, it'll certainly come in very 
handy when you need to send out 
several copies of a standard, but 
personalised letter. 


Albert L. Brush (President) 


Figure 1. Example standard letter 


BEFORE USE 
Before using the multiple letter utility, a names/addresses to which the letter is 
basic letter must be prepared, without to be sent, are also prepared separately 
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and held in their 
own file, with 
addresses 
separated by a 
blank line (саг- 
riage return). 
The first address 
should not be 
preceded by a 
blank line. 


Mr D. Smith, 

87 Sentinel Avenue, 
Hemelworth New Town, 
Hertingtordshire, 

HH1 2HH. 


Miss G. Romero, 
82 Dawn Rise, 


Pittscombe Terrace, 
The Pitts, 

Little Hemel, 
Hertingfordshire, 
нн? 2HH. 


Mr A.C. Currant, 
73 Resistor Road, An 
Ohmington, 

Buckshire. 


example 
letter VOLELET, 
and address list 
VOLEADD, are 
given to illus- 
trate what's 
required. Using 
these two files, 
follow the steps 
given below, to 


Peter 8. Piper, 

57 Variety Crescent, 
Hemelworth New Town, 
Hertingtordshire, 

HH1 анн. 


Mrs б. Batton, 
The Sticks, 

34 Deal Way, 
Woodwoll 


Case - practice using 
Figure 2. the utility. 
Example address list 
UTILITY FUNCTIONS 


The following functions are provided: 
- Full prompts and error messages for 
ease of use 
- Automatic insertion of addresses 


- Automatic positioning of cursor for 
name insertion 


- No restrictions on letter length or 
embedded commands 


- Print letter function 
- Reset function 


SEGMENT PROGRAMS AND 
EXEC FILE 

The utility is best set up by creating an 
EXEC file to load the appropriate 
segments with their programs, as in the 
following, where the file MULTEXE 
contains: 


*|File - MULTEXE 

*|EXEC file to load the multiple letter 
*|mailmerge utility 

*WORDWISE 

:SELECT SEGMENT 0 

AD ТЕХТ "MULTLET" 

:SELECT SEGMENT 1 

AD ТЕХТ "MULTPRN' 


:SELECT SEGMENT 2 


Lines beginning *! are comments 
ignored during execution, and 
«RETURN» denotes a carriage return. 


The segment programs loaded by the 
above EXEC file are: 


MULTLET - Multiple letter facility 
(main program) 


MULTPRN - Print letter 
MULTRES- Reset utility operation 


Having prepared the EXEC file as above, 
the utility can be set up by typing "EXEC 
MULTLET (or simply *MULTLET) from 
Basic or the Wordwise Plus menu mode. 
As described, MULTLET will load 
segments 0, 1, and 2. Other text areas are 
not affected. Segment usage can of course 
be altered to meet your own specific 
requirements. In fact just about anything 
can be changed with very little trouble. 


USE OF SEGMENT/TEXT AREAS 


Main text - Automatically loaded by 
utility with user specified 
letter 


SEGMENT 0 - Multiple letter program 
SEGMENT 1 - Print letter 
SEGMENT 2 - Reset 
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FUNCTION KEYS 

Pressing Shift and one of the red function 
keys f0, fl, or f2 invokes the associated 
segment program to implement the 
following: 


f0 - Initial load of letter/insert address 
fl - Print letter i.e. current contents of 
main text area 


f2 - Reset utility and clear main text area 


METHOD OF USE 


1. Load the MULTIPLE LETTER utility 
e.g. by typing *EXEC MULTLET or 
*MULTLET from either Basic or THE 
Wordwise Plus menu mode. 


2. Enter Edit mode by pressing Escape. 


3. Press Shift-f0 to execute segment 0. 
First time around, prompts will be 
given for the name of the standard 
letter file, and that of the address list. 
If these are answered correctly, the 
letter will be loaded into the main text 
area, and the first address will be 
inserted into the letter. The cursor 
will then be positioned immediately 
after "Dear " to allow the required 
name and/or form of address to be 
inserted (note that as set up, "Dear ^ 
is also mandatory, but once again you 
can change it to suit yourself). 
Subsequent operation of Shift-f0 will 
insert a fresh address in the letter 
already loaded. 


4. If an address is to be omitted, simply 
press Shift-f0, and the utility will go on 
to the next one. 


РД 


. Press Shift-fl to send the letter to the 
printer. The utility does not itself make 
use of formatting or printer control 
codes e.g. for paper positioning or 
paging. These should be embedded as 
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m 


м 


2 


required in the basic letter. For Epson 
and compatible printers a likely 
command might be OC12 at the end of 
a letter to give a form throw. If you're 
using single sheets of paper, and the 
letter extends over two or more sheets, 
don't forget to use EM as well as EP so 
that WW+ will pause at page 
boundaries. 


Press Shift-f0 to insert the next address. 
Repeat 3, 4 and 5 as required. 


Should you run out of addresses, in 
other words, come to the end of the 
address file, the message: 

“Мо more addresses in file - «address 

filename>" 

will be displayed, where, not 
surprisingly, <address filename> 
stands for the name of the address file 
that you specified. After a brief wait 
while the message is displayed, the 
original (unaddressed) contents of the 
letter file will be displayed in the main 
text area, and operation of the utility 
suspended. 


- To reset the utility, press SHIFT«f2. 


This will reset everything and clear the 
main text area. The utility can be 
started again simply by pressing 
SHIFT+f0, whereupon fresh prompts 
for letter and address list files will be 
given. 


The Break key has also been 
programmed to provide a reset 
function by simulating the action of 
pressing Shift-f2. So if you press this 
by accident, the utility won't be left in 
an ‘interesting condition’. Should you 
do this, simply repeat utility operation 
from step 2 onwards, skipping (as 
described above) those addresses that 
you've already dealt with. 
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9. When you have finished using the 
utility, press Shift and £2. This resets 
everything, closes all files, and clears 
the main text area. The utility is left in 
place. To use it again, just repeat the 
above steps. 


USING THE EXAMPLE LETTER 
AND ADDRESS LIST 

Having loaded and/or reset the utility, 
follow the above steps from 2 onwards. 


Enter VOLELET when prompted for the 
name of the letter file. 


Enter VOLEADD when prompted for the 
name of the address file. 


FINAL THOUGHTS 

Although the utility is both useful and 
fairly robust, like every other program 
that’s ever been written, there’s still 
scope for amendments, improvements, 
additional features, and all manner of 
goodies, add-ons and bells and whistles. 


For instance, I've deliberately kept the 
user input mechanisms as simple as 
possible, but they could be extended to 
provide file name validation, Escape 
trapping rather than disabling etc. 
Keyword use could also be made 
user/run-time selectable; formatting and 
special printing features could be added 
(e.g. pitch selection, style, size etc), and 
so оп. So if you'd like to add your own 
features, please go ahead. 


SEGMENT PROGRAM MULTLET 
REM MULTLET(Multiple Letters) 


[EEM Program to producemiltiple copies 


[REM of a standard letter.Each one can 
Es be uniquely named andaddressed 


REM using addresses takenautomatically 
REM from an address file. The contents 
REM of the letter areavailable in the 
REM main text area forusers to modify 
REM for eachrecipient. 


| REM DisableESCAPE 
*FX200,1 


REM Check to see ifletter has already 
|REM been loaded. 
| 


IFFÉ-FALSE THEN GOTO start-prog 


REM ProgramBREAK key to execute the 
REM segment 2resetfunction 
*KEY10* : DOLINE* " | IGSEG2" * |M|M* 


SELECTTEXT 
CURSOR TOP 


REM Check to see if allthe addresses 
(ВЕМ have been used up. 


IFNÉ-TRUE THEN GOTO enter-name 


REM Deleteprevious address 
FIND MARKERS 

[IF ВОТ THENPROCno-markers 
FKEY 7 
|GOTOinsert-name-and-address 


.Start-prog 


| CLOSE#O 
cus 


PRINT 
| REPEAT 
VDU131,141 
PRINT * 
TIMES 2 
PRINT 

REM Setyellow background 
| REPEAT 

| vpu131,157 

PRINT 


Multiple LetterUtility 
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TIMES 11 


REM Reposition cursor «display 
REM instructions in bluetext 


VD031, 2,5, 132 
PRINT "Producesmultiple copies of a* 
VDU31, 2,6, 132 

| PRINT^standard 
| automatic" 

| VDU31,2,7, 132 
PRINT" fashion. Addresses areinserted* 
VOU31, 2,8, 132 | 
PRINTautomatically from thespecified* 
VDU31, 2,9, 132 

PRINT "addressfile. Letters may beof* 
VDU31, 2, 10, 132 

PRINT "anylength." 

VD031, 2,12, 132 

PRINT "Press SHIFTplus function Кеуѓог" 
VDU31, 2,14, 132 

PRINT  "fÜ-nextaddress, 
f2-reset" 


letter іп asemi- 


#l=print, 


REMLetter/program setup flag 
FR=TRUE 
REMAddress file exhaustedflag 
N&-FALSE 


| PRINT 
VD031,0,15 
REPEAT 

PRINT 

PRINT "Enter letter file name" 
PRINT "or press RETURN to cancel : 
AS-GLKS 

IF Аб-"" THEN PROCend 
AR-OPENIN AS 

IF At=0 THENPROCfile-not-found 
UNTIL Айсэ0 


REPEAT 
PRINT 


| PRINT "Enter address file пале" 
PRINT "ог press RETURN to cancel :*; 
B$-GLES 

IF B$-** THEN PROCend 

BÉ-OPENIN BS 


IF В%-0 THENPROCfile-not-found 
UNTIL В%>0 


SELECTTEXT 
REM Get basic letter into textsegment 


LOAD TEXT А5 
| CLOSE #А% 


REM FindAddress position in text 
FIND" Address" 

IF EOT THENPROCaddress-key-missing 
DELETEWORD 
-insert-name-and-address 


FKEY3 


REM Get address from file andinsert 
REM in letter. 


IF EOFÉB& THENPROCno-more-addresses 
REPEAT 

CS=GLFS#BS 
THEN TYPE C$+" |R" 


.enter-name 
REM Positioncursor for entering name 


FIND*Dear* 
CURSOR RIGHT 5 


REM EnableESCAPE 
| *FX200,0 

| DISPLAY 

Imp 


-address-key-missing 

PRINT 

PRINT *<#Аййгевз> keyword missingfrom 
letter" 

PROCerror-output 
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Wordwise User's Notebook 


| PROCend 
ENDPROC 


.error-output 


REPEAT 
UNTIL TIME-150 
сз 
ENDPROC 


»£ile-not-found 
PRINT 
PRINT “File not found" 
PROCerror-output 
ENDPROC 


-no-more-addresses 

сз 
PRINT 
PRINT "No more addresses infile - *+B$ 
PROCerror-output 


PROGRAM MULTPRN 
REMP.MULTPRN 


REM This program forms part ofthe 
REM MULTIPLE LETTER utility. It runs 
REM in SEG 1 and provides a print 
REMfacility which avoids the use of 
REM menumode. 


SELECT TEXT 
PRINTTEXT 
DISPLAY 

END 


CLOSERS 
FREY 3 SEGMENT PROGRAMMULTRES 
FREY 7 REM P.MULTRES 
ТҮРЕ "hAddress" 
N&-TRUE REM This programforms part of the 
REM MULTIPLE LETTERutility. It runs 
REM Enable ESCAPE REM in SEG 2 andprovides a reset 
*Fx200, 0 REM facility. From a goodhousekeeping 
REM point of view, it's agood idea to 
DISPLAY REM use this (by pressingSHIFT«f2) 
END REM once all addresses have beenused 
ENDPROC REM or you've finished with the 
REMutility, since it ensures that all 
.no-markers REMfiles are closed and things are 
CLS REM tidied up. 
PRINT 
PRINT "Markers missing fromletter* CLOSE #0 
PROCerror-output FS=FALSE 
CURSOR TOP 
DISPLAY "| REM EnableESCAPE 
PROCend *FX200,0 
ENDPROC . 
SELECT ТЕХТ 
vend DELETETEXT 
CLOSERÜ DISPLAY 
FR=FALSE | END 8 
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SIDEWAYS MOVE 

I have а BBC model B fitted with a Watford 
32K shadow RAM card and ATPL sideways 
ROM card. The latter is fitted with 16K of 
RAM. I now wish to make copies or backups 
of my numerous ROMs by copying the 
contents of a selected ROM to disc so that it 
could be subsequently be loaded to RAM at 
48000 and operated from there. 


The problem is that I do not know how to go 
about this. Is there any method by which I 
can move, say, the contents of ROM number 7 
into sideways RAM without activating the 
ROM itself, and then follow this with a 
*SAVE “КОММАМЕ” 8000 C000 to save ап 
image of the ROM to disc for subsequent 
reloading at &8000. 


Also, have you come across any Basic 
program to convert Irish Grid References to 
latitude and longitude and vice versa? 1 
already have programs which cater for 
National Grid References. 1 am also interested 
in software which will predict the position of 
the stars and planets at any given time. 
Jeffrey Clarke 


The task of copying the contents of a ROM to disc 
for subsequent loading into sideways RAM is not 
as simple as it sounds. If you attempt to use Basic, 
then the Basic ROM is paged in, not the one you 
want. The Master 128 supports commands like 
"SRLOAD and *SRWRITE for accessing sideways 
ROM and RAM areis, and similar commands may 
be implemented by proprietory products 100. The 
following issues of BEEBUG contain articles 
relating to this: Vol.8 No.1, Vol.9 No.2 and Vol.11 
No.9. maybe other readers сан help. 


We are unaware of any program to work with 
Irish Grid References - again other readers may be 
able to help. As far as stars and planets are 
concerned, articles and programs have appeared in 
past issues of BEEBUG: Vol.7 No.6, VoL8 No.7 
(magazine disc) and Vol.11 No.8 
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CONGRATULATIONS 

I would like to congratulate all concerned in 
writing this marvellous little magazine. As 
secretary of a national organisation, I have 
found the JobLog program (Vol.11 No.7) of 
enormous assistance. Being also in the middle 
of a nationwide survey, the Census suite of 
programs (Vol.12 No.3) have come in the nick 
of time. 


When you eventually cease publication there 

will be a really big gap in this far-flung 
outpost of the Commonwealth, 

Peter Holt 

New Zealand 


VIEWING SPACE 
I cannot get the View Printer Driver from 
BEEBUG Vol.12 No.4 to work satisfactorily. I 
have repeatedly checked the accuracy of the 
program 1 copied from the magazine but 
cannot find an error. My computer is a Master 
128 with a Panasonic KX-P1081 printer. The 
computer works satisfactorily as far as I have 
tried to use it except for line spacing. When 
printing a View document the printout is 
double-spaced. I have tried entering the 
stored command LS 0 but this has no effect, 
and LS 1 results in only one line of a 
document being printed per page. 
M.A.Broughton 


One question 10 ask is whether the same results 
occur both on screen and 10 the printer. One 
answer may lie simply with the DIP switch 
settings on the printer. Normally one such 
switch selects either CR alone, or CR/LF at the 
end of each line, If this is in the CR/LF position 
then try the alternative setting. Otherwise both 
the computer and the printer are generating 
linefeeds giving the double line spacing 
experienced, Alternatively, using "FX6,10 will 
inhibit the computer from sending its own 
linefeed character. You may need to experiment 
to get it right 
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ENHANCED HEARING 

Having typed in and used the ‘Hearing Test’ 
program (BEEBUG Vol.12 No.4), it occurs to 
me that it would be easier to let the computer 
record the levels as they are decided, and then 
print them out so that they could be entered 
onto graph paper at ones leisure. In this way 
one can concentrate on the test without 
having to bother with recording the results. 1 
have found this can be achieved by inserting 
the following lines into the program: 

60 DIM store(100) 


re(L) :yournoise$ 
1384 freq(L) 
1286 14141 

1388 tone-tone*2^ (1/12) 
1455 LOCAL P 

1465 CLS: FOR P=1 TO L-1 
1467 VDU 2 

1470 PRINT * 


lay is blanked, 
perfect security if little fingers or big noses 
might interfere while you're away. 


CPFS - 16K EPROM plus disc (£24.95) £14.95 
The Co-Pro Filing System uses the (internal 
or external) 512 memory as a ramdisc for 
the BBC micro. CPFS is a full filing system 
(with extras) and can be used with any 
application. Transfer rate up to 125K 
bytes/sec. Up to 127 files in any number of 
directories. 


CPFS+ - 16K EPROM plus disc (£29.95) £19.95 
Provides the facilities of CPFS plusa 
configurable printer buffer of from 4K to 


MAGSCAN INDEX FOR Vol.12 No.6 
The index supplied on the magazine disc 
for this issue has a small omission. The 
second entry in the file MUST be 


1475 NEXT Р: VDU 3 
1477 ENDPROC 


1480 : B.W.Fursman 


WORDWISE-MAIL - THE LAST WORD? 
I wrote WW-Mail many years ago for my own 
use. It was never intended to be sold. WW- 
Mail lacks many features because, for writing 
letters to my friends, I did not need them. 
Corplan is undoubtedly a more comprehensive 
package intended for the professional, and 
Colin Robertson deserves much praise for its 
design. If you want something simple, which 
you can easily modify then WW-Mail might do. 


If you are planning to review Inter-Mail (my 
similar program) then may I get in first and 
say that the same comments apply. However, 
Inter-Mail supports DFS and ADFS, hard 
discs, and recognises the date on the Master. 
It has more features including label printing 
and Mail-Shot provision. Martin Pickering 


Interested in Inter-mail - see this month's review, B 


) 


in 4K steps. Memory not used by the 
buffer remains available for CPFS files. 


FASTBOOT (Sideways RAM) (£10.95) £5.95 
EPROM (£14.95) £8.95 

Boots the 512 in half the time (13-15 secs.) 
of a 640K disc and there's no need for a disc 
change from 800K to re-boot either. 


IN CLOSING 

That's all for this month except to remind 
you that if you want to write to me about 
any Forum topic, past or present, before 
BEEBUG ceases publication you'd better 
do that quickly too, and of course to wish 
you all а happy new year. B 


preceded by a line containing: 70 

as with the first entry in the file. Use Edit 
(on the Master 128) or a word processor 
to make this change. 8 
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SUBSCRIPTION DETAILS 
As а member of BEEBUG you may subscribe to 
for the reduced rate of £18.40 (a saving of £1.50 on the 
normal subscription rate). 

Overseas subscription rates are as follows: 

£27.50 Europe and Eire, £33.50 Middle East, £36.50 
Americas & Africa, £39.50 Elsewhere 


The number one 
subscription 
magazine for the 
Archimedes 


probably the most popular subscription magazine for the 
as ан Archim 
wealth of articles 


а sophisticated design, big colour 
pages full of information, and yet is still a convenient 
Altogether, in 

putation for a 
id informe 


of RISC coni 


Contents of the latest Vol.7 Issue 3 of RISC User: 
INTRODUCING THE АНМ7 FAMILY 


Ап introduction to the new ARM processors expected 10 
provide the power for Асогп' next generation of 
computers. 


SELECT AND COLLECT: 
PUBLIC DOMAIN GAMES 

A. description of the very best games titles available as 
public domain software. 


IMPRESSION STYLE 
A review of Computer Concepts’ latest development to 
its Impression DTP softwa 


TWO CD-ROM SYSTEMS 
A comparative review of two low cost CD-ROM drives 
{гот Morley and Cumana. 


FIREWORDZ: 
INTEGRATED SOFTWARE FROM COLTON 
An examination of the merits of integrated software in 
the form of Firewordz from Colton Softw 


WIMP TOPICS 

A major series aimed аг readers interested in Wimp 
programs and Wimp programming. Fach article looks at 
aspects of a particular topic. 


WRITE-BACK 
The readers’ section of RISC User for comment, help, 
information - a magazine version of a bulletin board. 


INTO THE ARC 


A regular series for beginners. 


TECHNICAL QUERIES 


A column which answers your technical queries. 


THE DOS SURVIVAL GUIDE 
А series of articles on how to use the PC Emulator. 


Graffer (continued from page 8) 


2070 FOR В-1 ТО N:MTHS(B)-MIS (B+START-1 
):NEXT B 

2080 DATA JAN, FEB, MAR, APL, MAY, JUNE, JULY 
, AUG, SEPT, OCT, NOV, DEC 

2090 DATA JAN, FEB, MAR, APL, MAY, JUNE, JULY 
, AUG, SEPT, OCT, NOV, DEC 

2100 ENDPROC 

210: 

2120 DEF PROCopt : LOCAL, X 

2130 *FX113,1 

2140 *ЕХ112,1 

2150 VDU28, 0,26,79,3:REM Sets text wind 
ow to middle 22 lines. 

2160 CLS 

2170 REPEAT:PRINT''"l - Run Programme'' 
"2 - Plot Another Graph on Same Axes 
- Save Graph to File''*4 - Print Graph" 
195 - Quit":X-GET 

2180 UNTIL Х>48 AND Х<54 

2190 ІР X=50 AND FILE-l THEN PROCfile E 
LSE IF Х-50 THEN PROCin2 

2200 CLS 

2210 *FX112,0 

2220 *FX113,0 

2230 IF X-49 THEN RUN 

2240 IF X-50 THEN PROCplot :PRINT"?" 
GET: PRINT CHR$ (127) :PROCopt 

2250 IF X-51 THEN CHAIN "SAVESCREEN* 
2260 IF X-52 THEN CHAIN*DUMP2* 

2270 IF X-53 THEN VDU26:CLS:END 

2280 ENDPROC 

2290 : 

2300 DEF PROCaxes 

2310 А-1:Х5%-144:Ү5%-10 

2320 CLS 

2330 VDU5:PLOT 4, XMA-550-6*TILEN, YMI-50 
:PRINT TIS 

2340 IF SUPP-Ü THEN PLOT 4,ХМА+25,10 EL 
SE IF YMIN>0 OR ҮМАХ-0 THEN PLOT 4,XMA+2 
5,YMI+10 ELSE PLOT 4,ХМА+25,10 

2350 PRINT XT$ 

2360 IF SUPP=0 THEN PLOT 4, -5-6*YTLEN, Y 
МА+40 ELSE ТР XMIN>0 OR ХМАХ-0 THEN PLOT 
4, XMI-5-6*YTLEN, YMA+40 ELSE PLOT 4, -5-6 
*YTLEN, YMA+40 

2370 PRINT YTS 

2380 PLOT 4,-25,10:PRINT*0*:IF ТЇМ-0 TH 
EN PLOT 4,-6,-15:PRINT"0* 


2390 IF YMIN>O OR ҮМАХ-0 THEN PLOT 4,ХМ 
I,YMI:PLOT 6,ХМА,ҮМТ ELSE PLOT 4,ХМІ,0:Р 
LOT 6,ХМА,0 

2400 IF XMIN>O OR ХМАХ<0 THEN PLOT 4, XM 
I,YMI:PLOT 6, XMI, YMA ELSE PLOT 4,0,YMI:P 
LOT 6,0,YMA 

2410 1 

2420 REPEAT 

2430 PROCpl 

2440 IF TIM-Ü THEN PRINT A*XINT ELSE IF 

R-l THEN PLOT 0,20-XI/2,0:PRINP Y(A) EL 
БЕ ІР 5-1 THEN PLOT 0,120-X1/2,0:PRINT M 
ТН (A) 

2450 PROCp2 

2460 А=А+1 

2470 UNTIL A*XINISXMAX 

2480 IF TIM-Ü THEN PROCg2 

2490 РВОСд3:РЕОСа4 

2500 ухи 

2510 ENDPROC 

2520 : 

2530 DEF РЕОСр1 

2540 IF SUPP=0 THEN PLOT 4,A*XI-XS$, -15 

ELSE IF YMIN>O OR ҮМАХ<0 THEN PLOT 4,A* 
ХІ-Х5%,ҮМІ-15 ELSE PLOT 4,A*XI-XS$,-15 

2550 ENDPROC 

2560 : 

2570 DEF РЕОСр2 

2580 Q-0 : PLOT 4,A*XI,YMI-20 

2590 IF STUB=0 THEN REPEAT:PLOT 1,0,10: 
PLOT 0,0,10:0-Q420:UNTIL Q>YMA-YMI+40 

2600 IF STUB=1 THEN IF YMIN>0 OR YMAX<O 

THEN PLOT 1,0,10 ELSE PLOT 0,0,10-YMI:P 
LOT 1,0,-10 

2610 ENDPROC 

2620 : 

2630 DEF PROCp3 

2640 IF SUPP=0 THEN PLOT 4, -172,у5%+(А* 
ҮІ) ELSE IF XMIN>0 OR ХМАХ<0 THEN PLOT 4 
,XMI-172,YS$«(A*YI) ELSE PLOT 4, -172,YS% 
+(A*YI) 

2650 ENDPROC 

2660 : 

2670 DEF PROCp4 

2680 Q-0:PLOT 4,XMI,A*YI 

2690 IF STUB=0 THEN REPEAT:PLOT 1,10,0: 
PLOT 0,10,0:0-0:20:UNTIL Q»XMA-XMI 

2700 IF STUB-l THEN IF XMIN>0 OR XMAX<0 
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THEN PLOT 1,10,0 ELSE PLOT 0,10-ХМІ,0:Р 
107 1,-10,0 

2710 ENDPROC 

2120 ; 

2730 DEF PROCg2 

2140 А=-1 

2750 REPEAT 

2760 PROCpl:PRINT A*XINT 

2770 PROCp2 

2780 А-А-1 

2790 UNTIL A*XINT-XMIN 

2800 ENDPROC 

2810 : 

2820 DEF PROCQ3 

2830 А-1 

2840 REPEAT 

2850 PROCp3:PRINT A*YINT 

2860 PROCp4 

2870 А=А+1 

2880 UNTIL A*YINT>YMAX+YRG/100 
2890 ENDPROC 

2900 : 

2910 DEF PROCQ4 

2920 А=-1 

2930 REPEAT 

2940 PROCp3:PRINT A*YINT 

2950 PROCp4 

2960 А-А-1 

2970 UNTIL A*YINT<YMIN-YRG/100 
2980 ENDPROC 

2990 : 

3000 DEF PROChist 

3010 PLOT 4,0,0 

3020 FOR A-1 TO N 

3030 PLOT 102,7(А, 0) *UNITX, T(A, 1) *UNITY 
:PLOT 4,7 (A, 0) "UNITE, 0 
3040 NEXT A 

3050 ENDPROC 

3060 : 

3070 DEF PROCintim2 
3080 REPEAT 

3090 FOR А-0 TO N:PRINT*INPUT Y"; 
UT " "T(A,1):NEXT A 

3100 PRINT"Accept these? (Y or N)*:P=GE 
T 

3110 UNTIL P-89 OR P-121 

3120 ENDPROC 

3130 : 


3140 DEF PROCSCal:LOCAL G 
3150 CLS:PRINT ТАВ(20,3) *XMIN=";XMIN, * 
XMAX=" ;XMAX 

3160 PRINT TAB(20,5)"YMIN=";YMIN, * 
ҮМАХ-" /ҮМАХ 

3170 PRINT TAB(10,8)"Enter your selecte 
d graph boundaries:" 

3180 REPEAT 

3190 IF ТІМ-0 THEN INPUT TAB(20,10)"XMI 
N=*XMIN, TAB (35, 10) "ХМАХ="ХМАХ 

3200 INPUT ТАВ(20, 12) "YMIN="YMIN, TAB(35 
,12) "ҮМАХ-"ҮМАХ 

3210 PRINT TAB(20,20) "ХМІМ=" ;XMIN, " 
XMAX-*;XMAX 

3220 PRINT TAB(20,22) *YMIN=" ; YMIN, * 
ҮМАХ-" ;ҮМАХ 

3230 PRINT TAB(10,24)*Accept these? (Y 
ог N)*:G=GET 

3240 UNTIL G-89 OR G-121 

3250 ENDPROC 

3260 : 

3270 DEF PROCin2 

3280 PRINT" '"XMIN-"XMIN, "XMAX-"XMAX 
3290 PRINT''"YMIN-"YMIN, *YMAX="YMAX' ' 


3340 DEF PROCinnot2 
3350 REPEAT 

3360 FOR A=1 TO N 
3370 PRINT*INPUT X" 
A, 0), T(A,1) 

3380 NEXT A 

3390 PRINT*Accept these? (Y ог N)": 
T:UNTIL P-89 OR P=121 

3400 ENDPROC 

340 : 

3420 DEF PROCerror 

3430 IF ERRc»204 AND ERR<>222 THEN REPO | 
RT:PRINT* at line ";ERL:END 

3440 CLS:PRINT TAB(27,10)*File not foun 
d: try again" 

3450 TIME-0:REPEAT UNTIL TIME-200 

3460 *DIR^ 

3470 RUN 

3480 ENDPROC ® 


*, Y"A;:INPUT* *Т( 
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BEEBUG members may advertise unwanted 


Personal Ads 


(including 'wants') in BEEBUG. These are completely free of charge but please keep your ad as short ав. | 


should ensure that they always receive original copies including documentation to avoid any abuse of 
thie facility. 


We also accept members! Business Ade at the rate of 40р per word (inclusive of VAT) and these will be 
featured separately. Please send all ads (personal and business) to MEMBERS' ADS, BEEBUG, 
117 Hatfield Road, St. Albans, Herts ALI 448, 


Urgently Wanted: ВВС Educational 
software for Childrens voluntary 
work , alsa add-ons, peripherals, 
mice, digitiser, art and DTP 
packages, Replay ROM, ROMs ete 
ever ВВС machines » dead or alive 
Tel Shipley 0274 598751 


Monitor wanted for M128, colour 
Tel, Newcastle-upon: Tyne 4661 
sen. 


Master 512 with expansion to IMB 
with B&W monitor, 40/807 5 2: 
and 35” ас drives, Panasonic 1081 
printer with spare ribbons, manuals, 
software, discs including Elite, all 
the the Dabs Shareware with lots of 
other for the PC side of things, disce 
with lots of DFS and ADFS dises 
brimming with utilities, ROMS ete 
ЛІ BEEBUG magazines to date, 
Dumpout Il, Viewstore, FastBoot 
ROM, Compact and Mouse Driver 
Utils by Cliff Bowman, 10МЬ 
hardDrive, lots of other stuff - to 
much to enumerate Tel Pontypridd 
ЕШ) 


WANTED: Gunlock for BBC B Te 
Coventry 0207610445. 


Acorn Electron with Plus 1, АРЗ 
25" disc drive, View and Viewsheet, 
manuals and software £90. Tel. 
Edinburgh (1-45 1802. 


ВВСВ issue 7, іміз 40/807 
Cumana disc drive with own PSU, 
20Mb Winchester (Solidish), Zif 
socket, WW, 280 2nd Processor 
complete with full manuals and. 
original discs £200 ос may split if 
coffers reasonable. Tel. Oxford 0865 
D 


Master 128, boxed in perfect 
condition, Cumana disc drive 
CS400 40807 + PSU bored 
Voltmace joystick, mouse, a good 
assortment of software, Super Art 
package and Educational Cames, 

manuals and tape included £250 
оло. Tel. St Albans 0727 834050 

alter Spm, 
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MUS fitted with BEEBUG Master 
ОМ 05, Wardwsie Plas OD, Forth 
(1, DAF 0, Commstar 23, Philips 
monitor CMI1342/06C, Cumana 
double disc drive, mains powered, 
Epson printer FXS0, complete set 
1350. Hybrid Music 5000 
synthesiser, Hybrid Music 4000 
Keyboard, with footswitch, Hybrid 
Music Toolbox disc, all with User 
Guides and dises, "Pay" tutor and 
disc (cost over £400) £95 олоо 
Wordwise Plus Il with segment. 
discs and books £15, ВЕЕВОС 
Masterfüe П (ADFS) £10, BEEBUG 
Printwise disc and guide £8, 
BEEBUG Studio 8 disc and guide 
55, Creative Graphics book with 
DES dise 5, Fast Access Volume 1 
(12 DFS discs in binder) £6. 
Advanced User Guide for the BBC 
£8, collect from West Surrey or 
transport by arrangement. Tel. 
Farnham 0252710219, 


WANTED: Embroidery machine 
for linking to a computer such as the 
"Poem 300 CNC”, also wanted 
monitor such as AKFA). ТЫ. Leeds 
(0532735276, 


Quantity of new 2764, 2732 and 
6265 LP devices, please ring for 
details with sensible offers. Tel 
Lancashire 0254708175, 


Watford RAM/ROM board with 
128 dynamic RAM, 16k static RAM. 
and battery backup £35, toolkit plus 
©, dustcover for BBC £2. BEEBUG 
magazines Vol.10 No to Vol.11 
№9 free. Tel. Hampshire 0705 
79082 after 5 pen (ask for David) 


WANTED: Disc copy of BEERUGS 
"Dumpmaster’ Tel. Surrey 0276 
тав 


50 x 325° discs, some with progs, 
‘complete in box £10, Эг Basic £i, 
100 Progs for BBC, book and tape 
(Gordon) 44, Sureshot joystick 2, 
Mini Office 11 £3, all including 
postage, Triumph-Adler wide 
carriage daisywheel printer inc. 


cable & spate daisywheel 50, buyer WANTED: Any Epson printer, any 
йе. Tel Barnsley 0226752450. reasonable price paid. Tel. Suffolk 
0502725016. 


deal BBCIMaster to Archimedes 
‘entry upgrade system, АЗИМ, Med BBC Master 128+ Turbo co; 
Res Philips monitor, indispensable processor with ROM software 
{Mb RAM IFEL upgrade, пад пата Viewstore. and 
325", twin 40/80T dise drives in | Spellmaster, complete Hybrid 
monitor plinth, serial link, PC Маме system including Music 3000 
Emulator Ү17, Dr DOS 50, synthesiser, 4000 keyboard, 3000 
considerable amount of software, expander, 1000 Amplifier + pair of 
utilities and games, offers around Panasonic speakers, Panasonic 
5500 invited. Tel, Rutland 0572 KXP-IOSI printer, Microvitec Cub 
138 452 colour monitor, Cumana 

40/80 switchable 5287 dise drive, 
BBC Master with single 40/80T — large number of books /manual 
Cumana disc drive, and tape ом of tape disc software throw 
tecorder, Interword, Viewspell, in, would prefer to sel complete 
View printer driver generator all but will split if necessary. Allin 
manuals included, ref excellent condition, deal før school 
manuals. £200 оло. Tel Bath (225 music department. Онлайн cost 
E СЮ. Оез? Tel West Yorkshire 

pr 


Wapping Editor DTP 

ROM, with disc and manual. Tel, Archimedes 310, АМЬ, ARM IDE 

Bucks 0053 88540 FS 170Mb + 40M, Replay DIY, 
RISC OS 31 £880 ола, Tel 0727 

WANTED: Original Repton game MUS ask for Paul extn 26] 

for BBC 8 on 5.25" disc, Tel. 

Derbyshire 0773822577 SJ MDFS fileserver for Бөле with 
20Mb hard disc and matching 

WANTED: 1770 DFS, Slime, upesreamerand Mb tapes СН 

Wapping Editor DTP. ТА. Luton Continued manufacturer's support 

(800391 stl available. Te. 225 468313, 


MAILER 
Bc hl уксын а 
то 2000 addresses, ‘on disc space. Prints up to 
four labels per row. Allows a total of eight lines per 
address, and addresses can be aligned to the left or right 
of labels, or centralised. Can also be set up for different. 
label sizes. Other features include sort, print as a list 


22. £8.00 


Please state BBC B/Master, ADFS/DFS, 40/80T, 
5.25"/3.5" dis 
Не Pack Avenue, 


PINTS, HINTS, unm, HINTS, HINTS, 


FASTER BASIC 

P |, Vincent. 

When performing certain operations in Basic, 
some programming techniques аге more 
efficient than others (timewise). Generally 
speaking, REPEAT-UNTIL is faster than IF- 
THEN-GOTO, but FOR-NEXT is faster than 
REPEAT-UNTIL. 


A GOSUB is slightly faster than a procedure, 
contrary to what the User Guide suggests, 
and it is quicker to use global variables, again 
different to what the User Guide says. 
Turning off the ADC conversions though has 
very little effect upon timings. 


WHICH DAY 15 IT? 

The short function/program below allows 
the day of the week to be calculated from a 
date entered. Note that the format required 
by the code below is fairly exacting; the 
format being DD:MM:YYYY, where DD is the 
date (with a zero preceding if necessary) MM 
likewise the month and YYYY the year. The 
^! may be replaced by most characters, but it 
is best to standardize on just one separator. 


100 REM DateDemo 
110 DIMdays$ (7) :FORAS=0107 :READday$ (A8) : 


)-1600 
160 PRINIdays$ (FNday) "DAY" 
170 UNTIL FALSE 
180 END 
А NO, SUN, MON, TUES, WEDNES, THURS, FR 


MOD400) »0:y&-Y&-1:m&-M$-1:- ( (Y$+y%DIV4-y%D 
IV100sySDTV400431*m&- (mkDIV2) - (m&-8) - (m&-1 
0) + (m&>1) + (LSANDmE>1) 40846) МОТ) «14ND (1850 
№03 (32- (m&MOD7MOD2 ) (т%=1) + (L'&ANDm$-1) ) 
ANCMSSOANDMS13ANDY»0) 


TESTING OSBYTE ROUTINES 


Jonathan Temple 

Although many OSBYTE routines are not 
implemented as *FX calls, they can be easily 
tested from Basic, to see their effect, with the 
following function key definition. When 
prompted, enter the value for A (the OSBYTE 
call number) and the value of X and Y 
registers. The routine is then called and the 
results printed out. 


*KEYO 
1.""А-"АВ"Х-"ХҮҮҮ-"Үй:Е-08КЕЕЕЕ4:Р, ' "A 


FF: P. "X="; (В A.&FF00) /265:Р.* 
FF0000) /16^4 IM 


INVISIBLE BOOTS 

Paul Baron 

If you don't like your !BOOT file to write 
PAGE=&1900 and CHAIN"MENU"all over 
the nice clean screen, here is one method of 
preventing it. When *BUILDing the file, 
create the first line as XXXXX. Use a disc 
sector editor such as Disc Doctor, to alter the 
Xs to the hex values: 


1С 01 07 01 07 


These are the VDU codes to create a zero 
sided text window. As it is the codes 
themselves that are used, nothing appears on 
the screen. The first thing that the menu 
program (or whatever) should do is to change 
the mode or text window, otherwise all screen 
output will remain invisible. 8 
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A5000 for only £850 
2Mb/80Mb HD LEARNING CURVE 


Once again we have managed to obtain a 
number of A5000 Learning Curve systems at 
a ridiculously low price. Only a few are left in 
stock, so hurry if you are not to miss out. 


The А5000 on offer is the top of the range 
computer from Acorn, and features the 
25MHz ARMS processor (the latest models 
are equipped with a 33MHz ARMS making 
them marginally faster). 


We are offering a range of specially priced 
upgrades provided they are all supplied or 
fitted at the same time of your order for the 
А5000. All are fully guaranteed for 12 
months along with the computer. So whether 
you can only afford the computer now at 
£850, or a full blown system we can supply 
exactly what you need. 


Monitor options: 

Standard (AKF40) £149 
MultiScan (AKF18)£179 
High Res. (AKF50) £250 


BEEBUG Ltd 


RAM Upgrades: 
2-4Mb £94 
2-8Mb £379 


A5000 Specification 
RISC OS 3.1 

2Mb RAM 

80Mb Hard drive 
25MHz АВМЗ 


Learning Curve pack 
PC Emulator v1.7 

DOS 5 

First Word Plus 

Acorn DTP 

Audio Training Tape 
Pacmania 

Genesis Plus 


Additional Hard Drives: 


160Mb £199 
260Mb £279 
450Mb £449 


These drives are fitted in_ 
addition to the standard 80Mb 
and do not replace them. 


117 Hatfield Road, St Albans, Hertfordshire AL1 4.5. 
Tel: 0727 840303 Telesales Direct: 0727 840305 Fax: 0727 860263 
Prices shown are exclusive of £8.00 for carriage and VAT. 


